Visual FoxPro

Create a WinZip/7-Zip compatible AES Encrypted Zip

See more Zip Examples

Creates a WinZip compatible AES-encrypted .zip archive Visual FoxPro

LOCAL lnSuccess
LOCAL loZip
LOCAL lnRecurse

lnSuccess = 0

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

loZip = CreateObject('Chilkat.Zip')

lnSuccess = loZip.NewZip("/myZipDir/aes.zip")
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Set properties to indicate that the Zip should be
* AES encrypted.

* A value of 4 indicates WinZip compatible AES encryption.
loZip.Encryption = 4

* Key length can be 128, 192, or 256 bits.
loZip.EncryptKeyLength = 128

* Set the password for AES encryption:
loZip.EncryptPassword = "myPassword"

* Add a directory tree to be zipped.  (The files
* are not compressed at this point -- only references
* to the files and directories are added to the zip object.)
lnRecurse = 1
lnSuccess = loZip.AppendFiles("c:/temp/a/*",lnRecurse)
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Create the encrypted zip ("/myZipDir/aes.zip")
* The path of the zip is what was originally passed
* to the NewZip method (above).  
lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

? "Created AES Encrypted Zip."

RELEASE loZip