VB.NET

Iterate Over ZIP Entries Using EntryAt

This example demonstrates how to use the EntryAt method to iterate over all entries contained within a ZIP archive.

The EntryAt method retrieves a ZipEntry object for a given zero-based index.

This is useful for:

• Enumerating all entries in a ZIP archive
• Inspecting filenames, sizes, and timestamps
• Searching or filtering ZIP contents

Suppose the ZIP archive contains:

docs/readme.txt
images/logo.png
data/config.json

The example loops through all ZIP entries and prints information about each entry.

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


' Get the total number of entries in the ZIP archive.
Dim numEntries As Integer = zip.NumEntries

Debug.WriteLine("Number of ZIP entries = " & numEntries)

' Create a ZipEntry object that will be reused
' for each entry retrieved by EntryAt.
Dim entry As New Chilkat.ZipEntry

' Iterate over all ZIP entries.
Dim i As Integer = 0
While i < numEntries

    ' Retrieve the entry at index i.
    success = zip.EntryAt(i,entry)
    If (success = False) Then
        Debug.WriteLine(zip.LastErrorText)
        Exit Sub
    End If


    Debug.WriteLine("Entry " & i)
    Debug.WriteLine("  FileName: " & entry.FileName)
    Debug.WriteLine("  Uncompressed Length: " & entry.UncompressedLength)
    Debug.WriteLine("  Compressed Length: " & entry.CompressedLength)
    Debug.WriteLine("")

    i = i + 1
End While

' Sample output:
' 
' Entry 0
'   FileName: docs/readme.txt
'   Uncompressed Length: 1204
'   Compressed Length: 512
' 
' Entry 1
'   FileName: images/logo.png
'   Uncompressed Length: 84211
'   Compressed Length: 84102
' 

zip.CloseZip()

Debug.WriteLine("Done.")