Tcl

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

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