VBScript

Add Text from a StringBuilder to a ZIP Using AddSb

See more Zip Examples

This example demonstrates how to use the AddSb method to add text from a StringBuilder object as a file entry within a ZIP archive.

The text is converted to bytes using the specified character encoding before being stored in the ZIP archive.

This method is useful for dynamically generating text files entirely in memory without creating temporary files on disk.

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set zip = CreateObject("Chilkat.Zip")

success = zip.NewZip("stringBuilderData.zip")
If (success = 0) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
End If

' Create a StringBuilder containing text data.
set sb = CreateObject("Chilkat.StringBuilder")

success = sb.AppendLine("Line 1: Hello World!",1)
success = sb.AppendLine("Line 2: This text came from a StringBuilder.",1)

' Add the StringBuilder contents as a UTF-8 text file
' stored in the ZIP archive as "docs/readme.txt".
success = zip.AddSb("docs/readme.txt",sb,"utf-8")
If (success = 0) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
End If

' Write the ZIP archive to disk and close it.
success = zip.WriteZipAndClose()
If (success = 0) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("ZIP archive created successfully.")

outFile.Close