|
|
|
|
|
WLanguage procedure called by zipAddDirectory to handle the progress bar WLanguage procedure ("Callback") used by zipAddDirectory to manage the progress of files being added to the archive.
GLOBAL
NomArchive is string = "MonArchive"
NomRépertoire is string
CodeErreurCréation is int
CodeErreurAjout is int
CodeErreurCréation = zipCreate(NomArchive, "C:\MonRépertoire\MesArchives\ArchivePdf.wdz")
IF CodeErreurCréation = 0 THEN
NomRépertoire = fSelectDir("", "", "Répertoire à ajouter")
CodeErreurAjout = zipAddDirectory(NomArchive, NomRépertoire, False, "", zipDirectory, ...
zipAjouteRépertoireJauge_Callback)
IF CodeErreurAjout <> 0 THEN
Error(zipMsgError(CodeErreurAjout))
END
ELSE
Error(zipMsgError(CodeErreurCréation))
END
INTERNAL PROCEDURE zipAjouteRépertoireJauge_Callback(FichierEnCours is string,
AvancementGlobal is int, AvancementFichier is int)
IF AvancementGlobal < 100 THEN
ProgressBar(AvancementGlobal, 100, FichierEnCours)
Multitask(-1)
ELSE
ProgressBar()
END
END
Syntax
zipAddDirectory_ProgressBarCallBack(<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 files added to the archive. <File progress percentage>: Integer Progress percentage of the file being added to the archive. Remarks If you are using a 7z archive, only <Overall progress percentage> is specified. <File progress percentage> will have the same value. Business / UI classification: Neutral code Component: wd300java zip.dll
This page is also available for…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|