(Visual Basic 6.0) Add Base64-Encoded Data to a ZIP Using AddEncoded

See more Zip Examples

This example demonstrates how to use the AddEncoded method to add encoded binary data as a file entry within a ZIP archive.

The example adds Base64-encoded data as a file named hello.txt within the ZIP archive. The Base64 text is automatically decoded to its original binary bytes before being stored in the ZIP.

This method is useful when binary data already exists in encoded textual form, such as Base64 or hex.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim success As Long
success = 0

Dim zip As New ChilkatZip

success = zip.NewZip("encodedData.zip")
If (success = 0) Then
    Debug.Print zip.LastErrorText
    Exit Sub
End If

' Base64 for the text: "Hello World!"
Dim base64Data As String
base64Data = "SGVsbG8gV29ybGQh"

' Add the decoded bytes as "hello.txt" within the ZIP archive.
success = zip.AddEncoded("hello.txt","base64",base64Data)
If (success = 0) Then
    Debug.Print zip.LastErrorText
    Exit Sub
End If

' Write the ZIP archive to disk and close it.
success = zip.WriteZipAndClose()
If (success = 0) Then
    Debug.Print zip.LastErrorText
    Exit Sub
End If

Debug.Print "ZIP archive created successfully."