Tcl Requires Chilkat v11.0.0+

Extract a Single ZIP Entry While Preserving Its Stored Path

See more Zip Examples

This example demonstrates how to use the ZipEntry.Extract method to extract a single entry from a ZIP archive.

The example first creates a ZIP archive containing a text file. It then re-opens the ZIP, finds the entry, and extracts it to a base directory.

The Extract method uses the relative path stored within the ZIP entry. Any required subdirectories are created automatically beneath the specified base directory.

Tcl

load ./chilkat.dll

set success 0

#  ------------------------------------------------------------
#  First create a sample ZIP archive containing a small text file.

set zip [new_CkZip]

set success [CkZip_NewZip $zip "c:/temp/sampleText.zip"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

#  Add a small text file from memory.
set success [CkZip_AddString $zip "myApp/docs/hello.txt" "Hello from a ZIP entry!" "utf-8"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

#  Write the ZIP archive to disk and close it.
set success [CkZip_WriteZipAndClose $zip]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

#  ------------------------------------------------------------
#  Now open the ZIP archive we just created.

set zip2 [new_CkZip]

set success [CkZip_OpenZip $zip2 "c:/temp/sampleText.zip"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip2]
    delete_CkZip $zip
    delete_CkZip $zip2
    exit
}

#  Find the entry by its stored ZIP path.
set entry [new_CkZipEntry]

set success [CkZip_EntryOf $zip2 "myApp/docs/hello.txt" $entry]

if {$success == 0} then {
    puts "Entry not found."
    delete_CkZip $zip
    delete_CkZip $zip2
    delete_CkZipEntry $entry
    exit
}

#  Extract this single entry to the base directory:
#  
#      c:/temp/extracted
#  
#  Because the entry's stored path is:
#  
#      myApp/docs/hello.txt
#  
#  the file will be extracted to:
#  
#      qa_output/extracted/myApp/docs/hello.txt
#  
#  The required subdirectories are created automatically.
set success [CkZipEntry_Extract $entry "c:/temp/extracted"]
if {$success == 0} then {
    puts [CkZipEntry_lastErrorText $entry]
    delete_CkZip $zip
    delete_CkZip $zip2
    delete_CkZipEntry $entry
    exit
}

CkZip_CloseZip $zip2

puts "Entry extracted successfully."

delete_CkZip $zip
delete_CkZip $zip2
delete_CkZipEntry $entry