Tcl 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.

Tcl

load ./chilkat.dll

set success 0

#  Open an existing ZIP archive.
set zip [new_CkZip]

set success [CkZip_OpenZip $zip "example.zip"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

#  Get the total number of entries in the ZIP archive.
set numEntries [CkZip_get_NumEntries $zip]

puts "Number of ZIP entries = $numEntries"

#  Create a ZipEntry object that will be reused
#  for each entry retrieved by EntryAt.
set entry [new_CkZipEntry]

#  Iterate over all ZIP entries.
set i 0
while {$i < $numEntries} {

    #  Retrieve the entry at index i.
    set success [CkZip_EntryAt $zip $i $entry]
    if {$success == 0} then {
        puts [CkZip_lastErrorText $zip]
        delete_CkZip $zip
        delete_CkZipEntry $entry
        exit
    }

    puts "Entry $i"
    puts "  FileName: [CkZipEntry_fileName $entry]"
    puts "  Uncompressed Length: [CkZipEntry_get_UncompressedLength $entry]"
    puts "  Compressed Length: [CkZipEntry_get_CompressedLength $entry]"
    puts ""

    set i [expr $i + 1]
}

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

CkZip_CloseZip $zip

puts "Done."

delete_CkZip $zip
delete_CkZipEntry $entry