(Tcl) Remove a File from a .zip

Demonstrates how to remove a file from a .zip.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

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

# First prepare a .zip and write it..
set zip [new_CkZip]

CkZip_NewZip $zip "qa_output/abc.zip"

# Add some files..
set charset "utf-8"
CkZip_AddString $zip "a.txt" "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" $charset
CkZip_AddString $zip "b.txt" "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" $charset
CkZip_AddString $zip "c.txt" "cccccccccccccccccccccccccccccccccccc" $charset

# Write to qa_output/abc.zip
# This .zip contains three files: a.txt, b.txt, and c.txt
set success [CkZip_WriteZipAndClose $zip]

# -------------------------------------------------------------------
# Open abc.zip, remove an entry, and re-write.
set zip2 [new_CkZip]

CkZip_OpenZip $zip2 "qa_output/abc.zip"

set entry [new_CkZipEntry]

set success [CkZip_EntryOf $zip2 "b.txt" $entry]
if {$success != 0} then {
    CkZip_DeleteEntry $zip2 $entry
}

# Write the modified .zip back to "abc.zip"
set success [CkZip_WriteZip $zip2]

# To write to a different filename, change the FileName..
CkZip_put_FileName $zip2 "qa_output/ac.zip"
set success [CkZip_WriteZipAndClose $zip2]

puts "success."

delete_CkZip $zip
delete_CkZip $zip2
delete_CkZipEntry $entry