Procédure WLangage (également appelée "Callback) appelée lors de l'ajout de chaque fichier par la fonction
zipAjouteRépertoire. Cette procédure permet d'archiver une arborescence en omettant un ou plusieurs fichiers.
// Déclaration et initialisation des variables
NomRépertoire est une chaîne
NomArchive est une chaîne = "MonArchive"
CodeErreurCréation est un entier
CodeErreurAjout est un entier
// Création d'une archive
CodeErreurCréation = zipCrée(NomArchive, "C:\MonRépertoire\MesArchives\ArchivePdf.wdz")
// Affichage du message d'erreur si l'archive n'a pas été créée
SI CodeErreurCréation = 0 ALORS
// Sélection du répertoire
NomRépertoire = fRepSélecteur("", "", "Répertoire à ajouter")
// Ajoute les fichiers "BMP" du répertoire sélectionné
// et de ses sous-répertoires dans l'archive
CodeErreurAjout = zipAjouteRépertoire(NomArchive, NomRépertoire, Vrai, ...
zipDisque, zipAjouteRépertoire_Callback)
// Affichage du message d'erreur si les fichiers n'ont pas été ajoutés
SI CodeErreurAjout <> 0 ALORS
Erreur(zipMsgErreur(CodeErreurAjout))
FIN
SINON
Erreur(zipMsgErreur(CodeErreurCréation))
FIN
PROCÉDURE INTERNE zipAjouteRépertoire_Callback(NomFichier est une chaîne)
SI fExtraitChemin(NomFichier, fExtension) ~= ".gif" ALORS
RENVOYER Vrai
SINON
RENVOYER Faux
FIN
FIN
Syntaxe
<Résultat> = zipAjouteRépertoire_Callback(<Nom du fichier>)
<Résultat> : Booléen
- Si la procédure renvoie Vrai, le fichier doit être intégré à l'archive.
- Si la procédure renvoie Faux, le fichier ne doit pas être intégré à l'archive.
<Nom du fichier> : Chaîne de caractères
Chemin du fichier qui va être traité par la fonction zipAjouteRépertoire.