(Tcl) Modify Name of File Stored within Zip when Creating a .zip

Demonstrates how to create a zip where the filename within the .zip is different than the filename that was added from the filesystem.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set zip [new_CkZip]

# Intialize the zip object by calling NewZip.
set success [CkZip_NewZip $zip "myZip.zip"]

# Add a reference to a file on disk to the zip object.
# (When appending files to a zip, the files are not actually
# read into memory.  References to the file(s) are added.
# When WriteZip is called, the referenced files are streamed in
# and compressed to the .zip.)
set saveExtraPath 0
set success [CkZip_AppendOneFileOrDir $zip "/temp/a/hamlet.xml" $saveExtraPath]
if {$success != 1} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

# The zip object references a single file.
# Retrieve the entry object...
# entry is a CkZipEntry

set entry [CkZip_GetEntryByIndex $zip 0]

# Set the entry's filename to anything you want:
CkZipEntry_put_FileName $entry "somethingElse.xml"

# Note: Internally, the zip component retains the name of
# the file referenced.  The current setting of the zip entry's
# FileName property is stored in the .zip when writing.

# The zip written here will contain somethingElse.xml
set success [CkZip_WriteZipAndClose $zip]
if {$success != 1} then {
    puts [CkZip_lastErrorText $zip]
} else {
    puts "Zip created!"
}


delete_CkZip $zip