(VBScript) Create a Zip Entirely in Memory

Demonstrates how to create a .zip from in-memory byte data and strings, and to write the .zip to an in-memory image.

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

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

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = CreateObject("Chilkat.Crypt2")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Zip")
set zip = CreateObject("Chilkat.Zip")

success = zip.NewZip("test.zip")
If (success <> 1) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
End If

' Add the bytes 0x00 0x01 0x02 0x03 ... 0x0F as a file in the .zip

binFileData = crypt.Decode("000102030405060708090A0B0C0D0E0F","hex")
' entry is a Chilkat.ZipEntry
Set entry = zip.AppendData("binaryData.dat",binFileData)

' Add the string "Hello World!" to the .zip
' entry is a Chilkat.ZipEntry
Set entry = zip.AppendString2("helloWorld.txt","Hello World!","utf-8")

zipFileInMemory = zip.WriteToMemory()

' We could save these files to a file, and it is a valid .zip
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.FileAccess")
set fac = CreateObject("Chilkat.FileAccess")
success = fac.WriteEntireFile("test.zip",zipFileInMemory)
If (success <> 1) Then
    outFile.WriteLine(fac.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Zip Created!")

outFile.Close