(Tcl) Remove a File from a .zip

Demonstrates how to remove a file from a .zip.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

#  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..
# entry is a CkZipEntry
set entry [CkZip_AppendString $zip "a.txt" "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"]
delete_CkZipEntry $entry

set entry [CkZip_AppendString $zip "b.txt" "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"]
delete_CkZipEntry $entry

set entry [CkZip_AppendString $zip "c.txt" "cccccccccccccccccccccccccccccccccccc"]
delete_CkZipEntry $entry

#  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 [CkZip_GetEntryByName $zip2 "b.txt"]
CkZip_DeleteEntry $zip2 $entry
delete_CkZipEntry $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