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