B4J Question Zipping a folder

[khwarizmi]

Hi all

I used ArchiverPlus libray to zip a folder as follows :

Dim arc As ArchiverPlusZip
arc.ZipCompression = True
Dim Const InputFolder As String = File.Combine("d:\1", "") & "\"
arc.AddFolderToZip(InputFolder,InputFolder & "abc.zip", "")
Do While arc.ZipResultCode = arc.ZIP_RESULT_WORKING
    Sleep(0)
Loop

But the output is a correpted zip file, Where is my mistake?

 

[DonManfred]

    Dim arc As ArchiverPlusZip
    arc.ZipCompression = True
    arc.ZipExecutionMode = arc.ZIP_EXECMODE_ASYNCHRONOUS
    Dim InputFolder As String = "D:\1"
    arc.AddFolderToZip(InputFolder, File.Combine("D:\","abc.zip"), "ZIP")
    Wait For ZIP_ZipResult(Result As Int, ErrorMsg As String)
    Log($"ZipResult #${Result},${ErrorMsg}"$)

 

[khwarizmi]

Thanks DonManfred

 

[johnmie]

How to zip just all the files in a folder without the name of the folder on top?
I used to add file by file to the zip file, which sometimes caused an error.
There must be an easier way, I guess.
thanks for your help

 

[DonManfred]

There must be an easier way, I guess.

You should NEVER post to existing threads.

ALWAYS create a new thread for your issue(s).