B4X Requires Chilkat v11.0.0+

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.

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


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

Log("Number of ZIP entries = " & numEntries)

'  Create a ZipEntry object that will be reused
'  for each entry retrieved by EntryAt.
Dim entry As ChilkatZipEntry
entry.Initialize("entry")

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

    '  Retrieve the entry at index i.
    success = zip.EntryAt(i, entry)
    If success = False Then
        Log(zip.LastErrorText)
        Return
    End If


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

    i = i + 1
Loop

'  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

Log("Done.")