(Visual Basic 6.0) 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

Note: This example requires Chilkat v11.0.0 or greater.

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

Dim success As Long
success = 0

success = 0

' Open an existing ZIP archive.
Dim zip As New ChilkatZip

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

' Retrieve the first entry in the ZIP archive.
Dim entry As New ChilkatZipEntry

success = zip.EntryAt(0,entry)
If (success = 0) Then
    Debug.Print zip.LastErrorText
    Exit Sub
End If

Debug.Print "Original entry:"
Debug.Print "  FileName: " & entry.FileName
Debug.Print "  EntryID: " & entry.EntryID
Debug.Print ""

' Save the EntryID for later use.
Dim entryId As Long
entryId = entry.EntryID

' Create another ZipEntry object.
Dim entry2 As New ChilkatZipEntry

' Retrieve the same entry using EntryById.
success = zip.EntryById(entryId,entry2)
If (success = 0) Then
    Debug.Print zip.LastErrorText
    Exit Sub
End If

Debug.Print "Entry retrieved by EntryID:"
Debug.Print "  FileName: " & entry2.FileName
Debug.Print "  EntryID: " & entry2.EntryID
Debug.Print ""

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

Debug.Print "Done."