WD11 - Creation d'archive

Bonjour.

Voici le code que j'ai mis en place pour création d'une archive .zip ou
.wdz et ça ne me remplit pas l'archive. Je ne comprends vraiment pas
pourquoi.

/début_code

//Déclaration et initialisation des variables
NomArchive est une chaîne = "Sauvegarde.zip"
CheminArchive est une chaîne
ListeFichier est une chaîne
ResCréationArchive est un entier
NbFichier est un entier

// Sélection du chemin de l'archive
CheminArchive = fRepSélecteur("", "Sélection du répertoire", "Sélection
du dossier où placer l'archive")
// Vérification du chemin et recherche d'erreur
SI CheminArchive <> "" ALORS
Info("Le répertoire sélectionné est : "+CheminArchive)
SINON
// Affichage du message d'erreur
Erreur(ErreurInfo(errMessage))
FIN

// Création de l'archive "NomArchive"
ResCréationArchive = zipCrée(NomArchive,
ComplèteRep(CheminArchive)+NomArchive)

// Ajout de fichiers si l'archive a été créée
SI ResCréationArchive = 0 ALORS
Info("L'archive est : "+NomArchive) //vérification du renvoi, à suppr
après validation test
Info("Son chemin est : "+CheminArchive) //idem
// Ajout des fichiers dans l'archive
ResCréationArchive =
zipAjouteListeFichier(NomArchive,"*.fic"+RC+"*.ndx"+RC+"*.mmo")
FIN
// Affichage du message d'erreur si les fichiers n'ont pas été ajoutés
SI ResCréationArchive <> 0 ALORS
Erreur(zipMsgErreur(ResCréationArchive))
FIN

// Liste des fichiers de l'archive
ListeFichier = zipListeFichier(NomArchive) //vérification du renvoi, à
suppr après validation test

// Nombre de fichiers contenus dans l'archive
NbFichier = zipNbFichier(NomArchive) //vérification du renvoi, à suppr
après validation test

zipFerme(NomArchive)
Info("Sauvegarde terminée")

Si vous pouvez me dépanner, Merci :-)


--
amicalement,
michel

Chaque fois qu'on peut dire quelque chose en quatre mots, c'est pas la
peine de s'étaler. (Jean Yanne)