Zip with Unicode Filenames

The NTFS filesystem supports Unicode and filenames can contain characters in any language. However, the Zip file standard is only capable of supporting a single language at a time (i.e. a single OEM code page). If your computer's default OEM code page is different than the language of the filename, then you would need to set the Zip.OemCodePage property to the correct value prior to appending files.

Here is a list of OEM code pages:
437 OEM - United States
737 OEM - Greek (formerly 437G)
775 OEM - Baltic
850 OEM - Multilingual Latin I
852 OEM - Latin II
855 OEM - Cyrillic (primarily Russian)
857 OEM - Turkish
858 OEM - Multlingual Latin I + Euro symbol
860 OEM - Portuguese
861 OEM - Icelandic
862 OEM - Hebrew
863 OEM - Canadian - French
864 OEM - Arabic
865 OEM - Nordic
866 OEM - Russian
869 OEM - Modern Greek
874 ANSI/OEM - Thai (same as 28605, ISO 8859-15)
932 ANSI/OEM - Japanese, Shift-JIS
936 ANSI/OEM - Simplified Chinese (PRC, Singapore)
949 ANSI/OEM - Korean (Unified Hangeul Code)
950 ANSI/OEM - Traditional Chinese (Taiwan; Hong Kong SAR, PRC)

Download Chilkat Zip ActiveX

LOCAL loZip
LOCAL lnSuccess
LOCAL loZip2


*  This example creates a .zip with filenames containing
*  Chinese characters.  Using Chilkat Zip, the .zip can
*  be created and unzipped on any locale computer.  However,
*  to unzip using a program such as WinZip, it must run
*  on a computer with the correct locale.

loZip = CreateObject('Chilkat.Zip2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loZip.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

loZip.NewZip("chinese.zip")

*  Set the OEM code page to Chinese Big5
loZip.OemCodePage = 950

*  Add references to all files under a "chinese" subdirectory.
*  This directory will contain filenames having Chinese characters.
loZip.AppendFiles("chinese",1)

lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  Create a new instance of a zip object.  Load the .zip
*  we previously created and unzip to another directory.
loZip2 = CreateObject('Chilkat.Zip2')

*  Don't forget to set the OEM code page...
loZip2.OemCodePage = 950

lnSuccess = loZip2.OpenZip("chinese.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip2.LastErrorText)
    QUIT
ENDIF

*  This will unzip correctly on any locale computer.
lnSuccess = loZip2.Unzip("outDir")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip2.LastErrorText)
ELSE
    =MESSAGEBOX("unzipped!")
ENDIF