B4J Question Zipping a folder

khwarizmi · May 14, 2022

Hi all

I used ArchiverPlus libray to zip a folder as follows :

B4X:

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 · May 14, 2022

B4X:

    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}"$)

DonManfred · May 14, 2022

B4X:

    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 · May 14, 2022

Thanks DonManfred

johnmie · Jan 27, 2023

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 · Jan 28, 2023

johnmie said:
There must be an easier way, I guess.

You should NEVER post to existing threads.

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

B4J Question Zipping a folder

khwarizmi

Active Member

DonManfred

DonManfred

Expert

khwarizmi

Active Member

johnmie

Active Member

DonManfred

Expert

Similar Threads

B4J Question Zipping a folder

khwarizmi

Active Member

DonManfred

Expert

khwarizmi

Active Member

johnmie

Active Member

DonManfred

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency