(Visual FoxPro) Create a WinZip/7-Zip compatible AES Encrypted Zip

Creates a WinZip compatible AES-encrypted .zip archive

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loZip
LOCAL lnSuccess
LOCAL lnRecurse
LOCAL lnSuccess

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
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