B4X Requires Chilkat v11.0.0+

Create Password Protected Zip containing a Single File.

See more Zip Examples

Create a password-protected .zip containing a single file. (This uses the older Zip 2.0 encryption scheme, which is weaker and not as secure as AES encryption, which Chilkat Zip also supports.) B4X

Dim success As Boolean = False

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

Dim zip As ChilkatZip
zip.Initialize("zip")

success = zip.NewZip("test.zip")
If success = False Then
    Log(zip.LastErrorText)
    Return
End If


zip.SetPassword("secret")
zip.PasswordProtect = True

Dim saveExtraPath As Boolean
saveExtraPath = False
success = zip.AddFile("/temp/hamlet.xml", saveExtraPath)

success = zip.WriteZipAndClose
If success = False Then
    Log(zip.LastErrorText)
    Return
End If


Log("Zip Created!")