Procedure WLanguage (also called "Callback") used by the
zipExtractDirectory function to manage the progress of file extraction in the archive.
Archive is zipArchive
// Ouverture d'une archive
IF zipOpen(Archive, "C:\Archives\Archive.zip") = 0 THEN
// Extraction du répertoire "Temp" à la racine de l'arborescence des fichiers de l'archive
zipExtractDirectory(Archive, "Temp", zipDrive, zipOverwrite, ...
zipExtraitRépertoire_Callback, zipExtraitRépertoire_CallbackJauge)
END
// Cette procédure permet de gérer la jauge.
INTERNAL PROCÉDURE zipExtraitRépertoire_CallbackJauge(FichierEnCours is string,
AvancementGlobal is int, AvancementFichier is int)
IF AvancementGlobal < 100 THEN
ProgressBar(AvancementGlobal, 100, FichierEnCours)
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.