VBScript

Find a ZIP Entry by EntryID Using EntryById

See more Zip Examples

This example demonstrates how to use the EntryById method to retrieve a ZIP entry using its unique EntryID.

Each ZipEntry object has an EntryID property that uniquely identifies the entry within the currently open ZIP object.

This is useful when:

• An application stores EntryID values for later use
• ZIP entries need to be retrieved without searching by filename
• Multiple entries may have similar names or paths

The example:

• Opens a ZIP archive
• Retrieves an entry using EntryAt
• Saves the entry's EntryID
• Uses EntryById to retrieve the same entry later

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

success = 0

' Open an existing ZIP archive.
set zip = CreateObject("Chilkat.Zip")

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

' Retrieve the first entry in the ZIP archive.
set entry = CreateObject("Chilkat.ZipEntry")

success = zip.EntryAt(0,entry)
If (success = 0) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Original entry:")
outFile.WriteLine("  FileName: " & entry.FileName)
outFile.WriteLine("  EntryID: " & entry.EntryID)
outFile.WriteLine("")

' Save the EntryID for later use.
entryId = entry.EntryID

' Create another ZipEntry object.
set entry2 = CreateObject("Chilkat.ZipEntry")

' Retrieve the same entry using EntryById.
success = zip.EntryById(entryId,entry2)
If (success = 0) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Entry retrieved by EntryID:")
outFile.WriteLine("  FileName: " & entry2.FileName)
outFile.WriteLine("  EntryID: " & entry2.EntryID)
outFile.WriteLine("")

' The filenames and EntryID values should match.
zip.CloseZip 

outFile.WriteLine("Done.")

outFile.Close