Zip One File

Zip a single file.

Download Chilkat Zip ActiveX

LOCAL loZip
LOCAL lnSuccess
LOCAL lnSaveExtraPath

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

lnSuccess = loZip.NewZip("test.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  In this example, the file we wish to zip is c:/temp/abc123/HelloWorld123.txt

*  Add a reference to a single file by calling AppendOneFileOrDir
*  Note: You may use either forward or backward slashes.

lnSaveExtraPath = 0
lnSuccess = loZip.AppendOneFileOrDir("c:/temp/abc123/HelloWorld123.txt",lnSaveExtraPath)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

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

*  A .zip containing "HelloWorld123.txt" with no path information has been created.
=MESSAGEBOX("Zip Created!")

*  Perhaps you want to include a path in the .zip such that when unzipping, a sub-directory
*  is automatically created and the file unzipped into it.  Use PathPrefix:

*  (We'll skip checking the success/failure return value.)

*  Set a PathPrefix to get the relative path you want:
*  The .zip will contain this entry: "myApp/HelloWorld123.txt"
lnSuccess = loZip.NewZip("test2.zip")
loZip.PathPrefix = "myApp/"
lnSuccess = loZip.AppendOneFileOrDir("c:/temp/abc123/HelloWorld123.txt",lnSaveExtraPath)
lnSuccess = loZip.WriteZipAndClose()