VBScript

Unzip a ZIP Entry Directly into a BinData Object Using ZipEntry.UnzipToBd

See more Zip Examples

This example demonstrates how to use the ZipEntry.UnzipToBd method to inflate a ZIP entry directly into a BinData object.

The entry contents are uncompressed entirely in memory without creating a file on disk.

This is useful when:

• Processing ZIP entry data entirely in memory
• Avoiding temporary filesystem files
• Working with binary files such as images, PDFs, or certificates
• Passing uncompressed ZIP data directly to other APIs

The example opens a ZIP archive, locates a PDF entry, inflates it into a BinData object, and then writes the uncompressed bytes to a new file.

Suppose the ZIP archive contains:

docs/report.pdf

The entry is uncompressed directly into memory before optionally being saved to:

qa_output/report.pdf

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")

' Open an existing ZIP archive.
success = zip.OpenZip("qa_data/zips/documents.zip")
If (success = 0) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
End If

' Locate the PDF entry within the ZIP archive.
set entry = CreateObject("Chilkat.ZipEntry")

success = zip.EntryOf("docs/report.pdf",entry)
If (success = 0) Then
    outFile.WriteLine("ZIP entry not found.")
    zip.CloseZip 
    WScript.Quit
End If

' ------------------------------------------------------------
' Inflate the ZIP entry directly into a BinData object.
' 
' The uncompressed bytes are stored entirely in memory.
' 
set pdfData = CreateObject("Chilkat.BinData")

success = entry.UnzipToBd(pdfData)
If (success = 0) Then
    outFile.WriteLine(entry.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Uncompressed size = " & pdfData.NumBytes)
outFile.WriteLine("")

' ------------------------------------------------------------
' Optionally save the uncompressed bytes to a file.
' 
success = pdfData.WriteFile("qa_output/report.pdf")
If (success = 0) Then
    outFile.WriteLine(pdfData.LastErrorText)
    WScript.Quit
End If

zip.CloseZip 

outFile.WriteLine("PDF extracted successfully.")

outFile.Close