|
|
|
|
|
|
|
|
Procédure WLangage appelée par la fonction zipAjouteRépertoire 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. |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|