B4X

Zip a Directory Tree

See more Zip Examples

Demonstrates how to zip an entire directory tree into a .zip archive. B4X

Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim zip As ChilkatZip
zip.Initialize("zip")

success = zip.NewZip("test.zip")
If success <> True Then
    Log(zip.LastErrorText)
    Return
End If


'  Append a directory tree.  The call to AppendFiles does
'  not read the file contents or append them to the zip
'  object in memory.  It simply appends references
'  to the files so that when WriteZip or WriteZipAndClose 
'  is called, the referenced files are streamed and compressed
'  into the .zip output file.

Dim recurse As Boolean = True
success = zip.AppendFiles("c:/temp/a/*", recurse)
If success <> True Then
    Log(zip.LastErrorText)
    Return
End If


success = zip.WriteZipAndClose
If success <> True Then
    Log(zip.LastErrorText)
    Return
End If


Log("Zip Created!")