(Xojo Plugin) Zip Append StringBuilder

See more Zip Examples

Append the contents of a Chilkat StringBuilder object to a .zip.

Note: This example requires Chilkat v10.0.0 or later.

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

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

Dim success As Boolean

Dim zip As New Chilkat.Zip
Dim zipPath As String
zipPath = "c:/temp/qa_output/out.zip"

success = zip.NewZip(zipPath)

Dim sb As New Chilkat.StringBuilder
Dim i As Int32
i = 0
While i < 100
    success = sb.AppendLine("This is a test",True)
    i = i + 1
Wend

success = zip.AppendSb("this_is_a_test.txt",sb,"utf-8")

success = zip.WriteZipAndClose()
If (success = False) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

System.DebugLog("Success 1.")

// Perhaps you want to add a file to an existing .zip
Dim zip2 As New Chilkat.Zip
// Open the .zip we just wrote..
success = zip2.OpenZip(zipPath)

sb.Clear 
i = 0
While i < 100
    success = sb.AppendLine("This is a test 2",True)
    i = i + 1
Wend

success = zip2.AppendSb("this_is_a_test_2.txt",sb,"utf-8")

Dim zipPath2 As String
zipPath2 = "c:/temp/qa_output/out2.zip"
zip2.FileName = zipPath2
success = zip2.WriteZipAndClose()
If (success = False) Then
    System.DebugLog(zip2.LastErrorText)
    Return
End If

System.DebugLog("Success 2.")