e-CryptIt Engine - Compression Xojo Plugin |
|
ZipArchiveReader.Open Method
Open the zip archive.

Open(
source
as FolderItem)
Parameters
- source
- The archive file to open.
Remarks
Check the IsOpen property to see if this operation was successful.
And if not then you can check the LastError property for hints on what went wrong.
Example:
Dim f as FolderItem
Dim outFolder as FolderItem
Dim newItem as FolderItem
Dim zip as EinhugurZipArchives.ZipArchiveReader
f = GetOpenFolderItem(FileTypes1.Zip)
outFolder = SelectFolder()
if outFolder = nil then
return
end if
if f <> nil then
zip = new EinhugurZipArchives.ZipArchiveReader()
zip.Open(f)
if zip.IsOpen then
zip.ExtractAll(outFolder)
else
MsgBox "Could not open file"
end if
end if
See Also
ZipArchiveReader Class