Xojo Plugin

Add Text Files to a ZIP Using AddString

See more Zip Examples

This example demonstrates how to use the AddString method to add multiple text files directly from string variables into a ZIP archive.

Each string is converted to bytes using the specified character encoding and stored as a separate file entry within the ZIP archive.

This method is useful for dynamically generating small text files such as configuration files, reports, JSON documents, XML, or log files entirely in memory.

Xojo Plugin

Dim success As Boolean
success = False

Dim zip As New Chilkat.Zip

success = zip.NewZip("stringEntries.zip")
If (success = False) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

// Add a README text file.
Dim readmeText As String
readmeText = "This ZIP archive was created using AddString."

success = zip.AddString("docs/readme.txt",readmeText,"utf-8")
If (success = False) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

// Add a JSON configuration file.
Dim jsonText As String
jsonText = "{ ""server"": ""example.com"", ""port"": 443 }"

success = zip.AddString("config/settings.json",jsonText,"utf-8")
If (success = False) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

// Add a small XML document.
Dim xmlText As String
xmlText = "<root><status>OK</status></root>"

success = zip.AddString("xml/status.xml",xmlText,"utf-8")
If (success = False) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

// Write the ZIP archive to disk and close it.
success = zip.WriteZipAndClose()
If (success = False) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

System.DebugLog("ZIP archive created successfully.")