Visual Basic 6.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.

Visual Basic 6.0

Dim success As Long
success = 0

success = 0

' Open an existing ZIP archive.
Dim zip As New ChilkatZip

success = zip.OpenZip("example.zip")
If (success = 0) Then
    Debug.Print zip.LastErrorText
    Exit Sub
End If

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

Debug.Print "Number of ZIP entries = " & numEntries

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

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

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

    Debug.Print "Entry " & i
    Debug.Print "  FileName: " & entry.FileName
    Debug.Print "  Uncompressed Length: " & entry.UncompressedLength
    Debug.Print "  Compressed Length: " & entry.CompressedLength
    Debug.Print ""

    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 

Debug.Print "Done."