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