Tcl

List Files in a .zip

See more Zip Examples

How to list files within a .zip Tcl

load ./chilkat.dll

set success 0

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set zip [new_CkZip]

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

# Get the number of files and directories in the .zip
set n [CkZip_get_NumEntries $zip]

set entry [new_CkZipEntry]

set i 0

while {$i < $n} {
    CkZip_EntryAt $zip $i $entry
    if {[CkZipEntry_get_IsDirectory $entry] == 0} then {
        # (the filename may include a path)
        puts [CkZipEntry_fileName $entry]
    }

    set i [expr $i + 1]
}

delete_CkZip $zip
delete_CkZipEntry $entry