(Xojo Plugin) Create Password Protected Zip containing a Single File.
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.)
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Dim zip As New Chilkat.Zip
Dim success As Boolean
success = zip.NewZip("test.zip")
If (success <> True) Then
System.DebugLog(zip.LastErrorText)
Return
End If
zip.SetPassword "secret"
zip.PasswordProtect = True
Dim saveExtraPath As Boolean
saveExtraPath = False
success = zip.AppendOneFileOrDir("/temp/hamlet.xml",saveExtraPath)
Dim success As Boolean
success = zip.WriteZipAndClose()
If (success <> True) Then
System.DebugLog(zip.LastErrorText)
Return
End If
System.DebugLog("Zip Created!")
|