Procedure WLanguage (also called "Callback") used by the zipExtractDirectory
function to manage the progress of file extraction in 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, ...
// This procedure is used to manage the progress bar.
INTERNAL PROCÉDURE zipExtract_Folder_CallbackGauge(CurrentFile is TO string,
OverallProgress is int, nFileProgress is int)
IF OverallProgress < 100 THEN
ProgressBar(OverallProgress, 100, CurrentFile)
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.
If you are using a 7z archive, only <Overall progress percentage> is specified. <File progress percentage> will have the same value.