Tcl

Unzip a .zip Archive

See more Zip Examples

Demonstrates how to open a .zip archive and unzip. The Unzip method extracts the files and directories from a .zip archive and recreates the directory tree rooted at the directory path passed to Unzip. 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 "my_files.zip"]
if {$success != 1} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

# Returns the number of files and directories unzipped.
# Unzips to /my_files, re-creating the directory tree
# from the .zip.
set unzipCount [CkZip_Unzip $zip "/my_files"]
if {$unzipCount < 0} then {
    puts [CkZip_lastErrorText $zip]
} else {
    puts "Success!"
}


delete_CkZip $zip