Create WinZip Compatible AES Encrypted Zip

Create WinZip Compatible AES Encrypted Zip.

set zip = CreateObject("ChilkatZip2.ChilkatZip2")
zip.UnlockComponent "anything for 30-day trial"

' Set Encryption = 4 for WinZip compatible AES encryption.
zip.Encryption = 4
zip.EncryptKeyLength = 256
zip.SetPassword "test"

zip.NewZip "myZip1.zip"

' You may either append files from directories,
' or append from in-memory data:
recurseDirectories = 0
zip.AppendFiles "myFiles/*",recurseDirectories
zip.AppendData "test.txt","test test test"

zip.WriteZipAndClose