Open Zip and Save Password Protected

Open a .zip (non-encrypted) and then save it password-protected.

Download: Chilkat .NET Assemblies

Dim zip As New Chilkat.Zip()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(zip.LastErrorText)
    Exit Sub
End If


success = zip.OpenZip("test.zip")
If (success <> true) Then
    MsgBox(zip.LastErrorText)
    Exit Sub
End If


'  Set a password and indicate that password protection
'  should be used when writing the .zip
zip.EncryptPassword = "secret"
zip.PasswordProtect = true

'  Write the zip (overwrites test.zip)

success = zip.WriteZipAndClose()
If (success <> true) Then
    MsgBox(zip.LastErrorText)
    Exit Sub
End If


MsgBox("Zip Re-Written with Password Protection!")