(Tcl) Iterate Through ZIP Entries Using EntryAt and ZipEntry.GetNext

See more Zip Examples

This example demonstrates how to iterate through all entries in a ZIP archive using:

• Zip.EntryAt to obtain the first entry
• ZipEntry.GetNext to advance through the remaining entries

The example prints each ZIP entry's stored filename and whether the entry is a file or directory.

This approach is useful when sequentially processing ZIP entries without repeatedly calling EntryAt by index.

Suppose the ZIP archive contains:

docs/
docs/readme.txt
images/logo.png
hello.txt

The example iterates through each entry in the order stored within the ZIP archive.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

set zip [new_CkZip]

# Open an existing ZIP archive.
set success [CkZip_OpenZip $zip "c:/temp/example.zip"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

# A ZIP archive may contain zero entries.
if {[CkZip_get_NumEntries $zip] == 0} then {

    puts "The ZIP archive is empty."

    CkZip_CloseZip $zip
    delete_CkZip $zip
    exit
}

# ------------------------------------------------------------
# Get the first ZIP entry.
# 
# EntryAt(0,entry) initializes the ZipEntry object so that
# it represents the first entry in the ZIP archive.
# 
set entry [new_CkZipEntry]

set success [CkZip_EntryAt $zip 0 $entry]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    delete_CkZipEntry $entry
    exit
}

# ------------------------------------------------------------
# Iterate through all ZIP entries.
# 
# GetNext updates the same ZipEntry object so that it
# represents the next entry in the ZIP archive.
# 
while {$success == 1} {

    if {[CkZipEntry_get_IsDirectory $entry] == 1} then {

        puts "{[Directory] }[CkZipEntry_fileName $entry]"

    }     else {

        puts "{[File] }[CkZipEntry_fileName $entry]"
    }

    # Advance to the next entry.
    set success [CkZipEntry_GetNext $entry]
}

CkZip_CloseZip $zip

puts "Done."

delete_CkZip $zip
delete_CkZipEntry $entry