Xojo Plugin

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

Xojo Plugin

Dim success As Boolean
success = False

success = False

// Open an existing ZIP archive.
Dim zip As New Chilkat.Zip

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

// Retrieve the first entry in the ZIP archive.
Dim entry As New Chilkat.ZipEntry

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

System.DebugLog("Original entry:")
System.DebugLog("  FileName: " + entry.FileName)
System.DebugLog("  EntryID: " + Str(entry.EntryID))
System.DebugLog("")

// Save the EntryID for later use.
Dim entryId As Int32
entryId = entry.EntryID

// Create another ZipEntry object.
Dim entry2 As New Chilkat.ZipEntry

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

System.DebugLog("Entry retrieved by EntryID:")
System.DebugLog("  FileName: " + entry2.FileName)
System.DebugLog("  EntryID: " + Str(entry2.EntryID))
System.DebugLog("")

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

System.DebugLog("Done.")