B4X

Open and Unzip an AES Encrypted Zip

See more Zip Examples

Open and unzip an AES encrypted Zip. 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.OpenZip("/myZips/aes.zip")
If success <> True Then
    Log(zip.LastErrorText)
    Return
End If


'  Set the password needed to unzip.
'  This password must match the password used when the zip
'  was created.
zip.DecryptPassword = "myPassword"

Dim unzipCount As Int

'  Unzip the .zip into /unzipDir.   
'  Returns the number of files and directories unzipped.
unzipCount = zip.Unzip("/unzipDir/")
If unzipCount < 0 Then
    Log(zip.LastErrorText)
Else
    Log("Success!")
End If