Xojo Plugin

Zip a Directory Tree

See more Zip Examples

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

Dim success As Boolean
success = False

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

Dim zip As New Chilkat.Zip

success = zip.NewZip("test.zip")
If (success <> True) Then
    System.DebugLog(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
recurse = True
success = zip.AppendFiles("c:/temp/a/*",recurse)
If (success <> True) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

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

System.DebugLog("Zip Created!")