WLanguage procedure ("Callback") used by
zipExtractDirectory to manage the progress of files being extracted from the archive.
Archive is zipArchive
// Open an archive
IF zipOpen(Archive, "C:\Archives\Archive.zip") = 0 THEN
// Extract the "Temp" directory at the root of the archive file tree
zipExtractDirectory(Archive, "Temp", zipDrive, zipOverwrite, ...
zipExtractDirectory_Callback, zipExtractDirectory_ProgressBarCallback)
END
// This procedure is used to manage the progress bar.
INTERNAL PROCÉDURE zipExtractDirectory_ProgressBarCallback(CurrentFile is string,
OverallProgress is int, FileProgress is int)
IF OverallProgress < 100 THEN
ProgressBar(OverallProgress, 100, CurrentFile)
ELSE
ProgressBar()
END
END
Syntax
zipExtractDirectory_CallbackProgressBar(<Current file> , <Overall progress percentage> , <File progress percentage>)
<Current file>: Character string
Name of the file being processed.
<Overall progress percentage>: Integer
Progress percentage of the extraction of files from the archive.
<File progress percentage>: Integer
Progress percentage of the extraction of the current file from the archive.
Remarks
If you are using a 7z archive, only <Overall progress percentage> is specified. <File progress percentage> will have the same value.