(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.) Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Boolean
success = False
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Dim zip As New Chilkat.Zip
success = zip.NewZip("test.zip")
If (success = False) Then
System.DebugLog(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
System.DebugLog(zip.LastErrorText)
Return
End If
System.DebugLog("Zip Created!")
|