Tcl

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