This is Shin at XLsoft.
Thank you for reply.
It seems difficult to provide sample files. Sorry.
I got Applicable code.
“filePath” is the full path of the file to be zipped (including Japanese)
“zipPath” is the full path of the zip file
★1 “achv.CreateEntry(i, oneFile)” created a zip. A file with a numeric file name (1-20) was included in the zip.
★2 When “achv.CreateEntry(IO.Path.GetFileName(oneFile), oneFile)” is enabled, if you comment out ★1, a zip is created, but the contents of the zip are empty.
Using achv As Archive = _
Dim strFile As String() = System.IO.Directory.GetFiles(filePath)
If strFile.Length > 0 Then
For i = 0 To strFile.Length - 1
Dim oneFile As String = strFile(i)
achv.CreateEntry(i, oneFile) ★1
'achv.CreateEntry(IO.Path.GetFileName(oneFile), oneFile) ★2
best regards, Shin