Tcl
Tcl
Create Zip with utf-8 Filenames (Unicode filenames)
See more Zip Examples
Demonstrates how to create a .zip archive that stores the filenames using the utf-8 character encoding. This allows for filenames of any language to be within a single Zip.Note: utf-8 is the multibyte encoding for Unicode. When a Zip compression product declares that it supports Unicode filenames, what it really means is that it is capable of reading/writing utf-8. WinZip added support for Unicode (utf-8) filenames starting with version 11.2.
Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set zip [new_CkZip]
set success [CkZip_NewZip $zip "test.zip"]
if {$success != 1} then {
puts [CkZip_lastErrorText $zip]
delete_CkZip $zip
exit
}
# To zip using utf-8 filenames, set the OemCodePage = 65001
CkZip_put_OemCodePage $zip 65001
set recurse 1
set success [CkZip_AppendFiles $zip "/temp/NonEnglishFilenames/*" $recurse]
set success [CkZip_WriteZipAndClose $zip]
if {$success != 1} then {
puts [CkZip_lastErrorText $zip]
delete_CkZip $zip
exit
}
puts "Zip Created!"
delete_CkZip $zip