Xojo Plugin

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.

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

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

System.DebugLog("Number of ZIP entries = " + Str(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 Int32
i = 0
While i < numEntries

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

    System.DebugLog("Entry " + Str(i))
    System.DebugLog("  FileName: " + entry.FileName)
    System.DebugLog("  Uncompressed Length: " + Str(entry.UncompressedLength))
    System.DebugLog("  Compressed Length: " + Str(entry.CompressedLength))
    System.DebugLog("")

    i = i + 1
Wend

// 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 

System.DebugLog("Done.")