VB.NET

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

VB.NET

Dim success As Boolean = False

success = False

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

success = zip.OpenZip("example.zip")
If (success = False) Then
    Debug.WriteLine(zip.LastErrorText)
    Exit Sub
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
    Debug.WriteLine(zip.LastErrorText)
    Exit Sub
End If


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

' Save the EntryID for later use.
Dim entryId As Integer = 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
    Debug.WriteLine(zip.LastErrorText)
    Exit Sub
End If


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

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

Debug.WriteLine("Done.")