(Tcl) Unzip

See more Zip Examples

Unzip a zip archive, creating the subfolders as needed.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set zip [new_CkZip]

set success [CkZip_OpenZip $zip "qa_data/zips/sample.zip"]
if {$success != 1} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

# Unzip to c:/temp/testDir
# If c:/temp/testDir does not yet exist, it will be auto-created.
set numFilesUnzipped [CkZip_Unzip $zip "c:/temp/testDir"]
if {$numFilesUnzipped < 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

# If, for example, the zip contained these files:

# aaa/pigs.json
# bbb/base64Cert.txt
# bbb/sub1/brasil_cert.pem
# bbb/sub2/penguins.gif
# bbb/sub2/starfish.jpg
# hamlet.xml
# hello.pdf

# then after unzipping, the following files will be created:

# c:/temp/testDir/aaa/pigs.json
# c:/temp/testDir/bbb/base64Cert.txt
# c:/temp/testDir/bbb/sub1/brasil_cert.pem
# c:/temp/testDir/bbb/sub2/penguins.gif
# c:/temp/testDir/bbb/sub2/starfish.jpg
# c:/temp/testDir/hamlet.xml
# c:/temp/testDir/hello.pdf

CkZip_CloseZip $zip

delete_CkZip $zip