B4X Requires Chilkat v11.0.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

B4X

Dim success As Boolean = False

'  Open an existing ZIP archive.
Dim zip As ChilkatZip
zip.Initialize("zip")

success = zip.OpenZip("example.zip")
If success = False Then
    Log(zip.LastErrorText)
    Return
End If


'  Retrieve the first entry in the ZIP archive.
Dim entry As ChilkatZipEntry
entry.Initialize("entry")

success = zip.EntryAt(0, entry)
If success = False Then
    Log(zip.LastErrorText)
    Return
End If


Log("Original entry:")
Log("  FileName: " & entry.FileName)
Log("  EntryID: " & entry.EntryID)
Log("")

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

'  Create another ZipEntry object.
Dim entry2 As ChilkatZipEntry
entry2.Initialize("entry2")

'  Retrieve the same entry using EntryById.
success = zip.EntryById(entryId, entry2)
If success = False Then
    Log(zip.LastErrorText)
    Return
End If


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

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

Log("Done.")