(Xojo Plugin) Example for the Zip AppendNew Function

See more Zip Examples

Demonstrates the Zip AppendNew function.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim zip As New Chilkat.Zip
Dim success As Boolean

Dim zipPath As String
zipPath = "c:/temp/test.zip"

// Initialize the zip object, which also sets the FileName property to the path of the zip to be created.
success = zip.NewZip(zipPath)

// Append a new and empty file to the zip object.
// This does not write the zip file.  It simply adds an entry
// that will get processed when the zip is written.
Dim entry1 As Chilkat.ZipEntry
entry1 = zip.AppendNew("empty.txt")

// Append another entry..
Dim entry2 As Chilkat.ZipEntry
entry2 = zip.AppendNew("abc/helloWorld.txt")

// Add some data to this entry..
success = entry2.AppendString("Hello World","utf-8")

// Write the zip, which contains 2 files:  empty.txt and helloWorld.txt
zip.FileName = zipPath
success = zip.WriteZipAndClose()
If (success = False) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

System.DebugLog("Success.")