J'ai un problème vraiment bizarre ...

Je souhaite simplement créer une archive avec des documents que j'ai sauvegardé dans une BDD

Pour ce faire j'extrait tout les documents dans un dossier (dossierTemp) ....

Ensuite je crée une archive au format zip et j'ajoute l'ensemble du repertoire (dossiertemp)

L'archive .ZIP est bien crée .. amis lorsque je souhaite la rouvrir avec un logiciel de zip ... celle ci apparait corrompue et sous XP avec les dossiers compressés je récupère l'arboresecnce des doissiers mais rien a l'intérieur !!!

Sous WDzip les fichiers apparaissent !!
Ci dessous mon code :

NomArchiveAGénérer est une chaîne

NomArchiveAGénérer = fSélecteur("", RacineArbre, "Enregistrer le dossier sous...", "Archive (zip)"+TAB+"*.ZIP", "*.ZIP", fselCrée+fselExiste)


SI NomArchiveAGénérer <> "" ALORS
Sablier(Vrai)
zipCrée("DossierGénéré",NomArchiveAGénérer)
zipAjouteRépertoire("DossierGénéré",DossierTemp,Vrai,zipRelatif)
Info("Création du dossier : "+NomArchiveAGénérer+" exécuté !")
zipFerme("DossierGénéré")
Sablier(Faux)
FIN

Merci de votre aide ...