(AutoIt) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Local $bSuccess

$oZip = ObjCreate("Chilkat.Zip")
Local $sZipPath = "c:/temp/qa_output/out.zip"

$oZip.NewZip($sZipPath)

$oSb = ObjCreate("Chilkat.StringBuilder")
Local $i = 0
While $i < 100
    $oSb.AppendLine("This is a test",True)
    $i = $i + 1
Wend

$oZip.AppendSb("this_is_a_test.txt",$oSb,"utf-8")

$bSuccess = $oZip.WriteZipAndClose()
If ($bSuccess = False) Then
    ConsoleWrite($oZip.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Success 1." & @CRLF)

; Perhaps you want to add a file to an existing .zip
$oZip2 = ObjCreate("Chilkat.Zip")
; Open the .zip we just wrote..
$bSuccess = $oZip2.OpenZip($sZipPath)

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

$oZip2.AppendSb("this_is_a_test_2.txt",$oSb,"utf-8")

Local $sZipPath2 = "c:/temp/qa_output/out2.zip"
$oZip2.FileName = $sZipPath2
$bSuccess = $oZip2.WriteZipAndClose()
If ($bSuccess = False) Then
    ConsoleWrite($oZip2.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Success 2." & @CRLF)