Xbase++ 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.

Xbase++

LOCAL nSuccess
LOCAL oZip
LOCAL nNumEntries
LOCAL oEntry
LOCAL i

nSuccess := 0

//  Open an existing ZIP archive.
oZip := CreateObject("Chilkat.Zip")

nSuccess := oZip:OpenZip("example.zip")
IF (nSuccess == 0)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

//  Get the total number of entries in the ZIP archive.
nNumEntries := oZip:NumEntries

? "Number of ZIP entries = " + Str(nNumEntries)

//  Create a ZipEntry object that will be reused
//  for each entry retrieved by EntryAt.
oEntry := CreateObject("Chilkat.ZipEntry")

//  Iterate over all ZIP entries.
i := 0
DO WHILE i < nNumEntries

    //  Retrieve the entry at index i.
    nSuccess := oZip:EntryAt(i, oEntry)
    IF (nSuccess == 0)
        ? oZip:LastErrorText
        oZip:destroy()
        oEntry:destroy()
        RETURN
    ENDIF

    ? "Entry " + Str(i)
    ? "  FileName: " + oEntry:FileName
    ? "  Uncompressed Length: " + Str(oEntry:UncompressedLength)
    ? "  Compressed Length: " + Str(oEntry:CompressedLength)
    ? ""

    i := i + 1
ENDDO

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

oZip:CloseZip()

? "Done."

oZip:destroy()
oEntry:destroy()