Open Zip and Save Password Protected

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

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Dim zip As New ChilkatZip2

Dim success As Long

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

success = zip.OpenZip("test.zip")
If (success <> 1) 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 = 1

'  Write the zip (overwrites test.zip)

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

MsgBox "Zip Re-Written with Password Protection!"