bonjour,
J'ai un petit soucis pour la sauvegarde par programmation de fichiers compressés en zip
J’ai fait une petite application avec multidossiers ,ou j’ai introduit dedans une commande sauvegarde et une autre ,restaurer les données, et cela pour chaque dossier crée, dont vous trouverez ci-dessous le code.
La création de l’archive et la sauvegarde se fait, mais avec des fichiers vides.
j’ai fait un petit test en introduisant un fichier d’extention gif dans un dossier donné, la sauvegarde de ce fichier ne se fait pas.
Pour rappel mon programme windev se trouve dans le disque G:\, et j’ai bien peur que la sauvegarde des fichiers vient de ce repertoire et non du répertoire d:\compte+\dossiers\, et pourtant j’ai fait un trace du cheminaplication qui m’indique que je suis dans le bon répertoire “D:\“. y 'a t'il quelqu'un qui puisse m'aider à résoudre ce problème ? Merçi
Code ://
Code: Tout sélectionner
CAS "Sauvegarde"
// cheminapplication= “d:\compta+\dossiers\“
// cheminarchive=cheminapplication+nomdossier+ “\archives\ “
// cheminarchive1=cheminapplication+nomdossier+“\“
// resfichier est une chaine
// nomarchive est une chaine //nom de l’archive crée
Resfichier=fRep(Cheminarchive+Nomarchive,frFichier)
SI Resfichier="" ALORS
zipCrée(Nomarchive,Cheminarchive)
FIN
SI Rescréationarchive<>0 ALORS
Erreur(zipMsgErreur(Rescréationarchive))
FIN
zipOuvre(Nomarchive,Cheminarchive+Nomarchive)
Resfichier=fRep(Cheminarchive1+"*.*",frFichier)
TANTQUE Resfichier<>""
Jauge1=Evénement("jaugecompression",FenEnExécution(),JaugeCompactage)
BTN_ok..Etat=Grisé
BTN_Annuler..Etat=Grisé
BTN_SELECTEUR..Etat=Grisé
SI Minuscule(Droite(Resfichier,3))="fic" OU …
Minuscule(Droite(Resfichier,3))="ndx" OU...
Minuscule(Droite(Resfichier,3))="mmo" OU…
Minuscule(Droite(Resfichier,3))="bmp" OU...
Minuscule(Droite(Resfichier,3))="jpg" OU …
Minuscule(Droite(Resfichier,3))="png" OU...
Minuscule(Droite(Resfichier,3))="gif" OU …
Minuscule(Droite(Resfichier,3))="rep" OU...
Minuscule(Droite(Resfichier,3))="ico" ALORS
zipAjouteFichier(Nomarchive,Resfichier,zipDisque)
FIN
Resfichier=fRep("",frFichier)
FIN
BTN_ok..Etat=Actif
BTN_Annuler..Etat=Actif
BTN_Selecteur..Etat=Actif
FinEvénement(Jauge1)
Jauge1..Visible=Faux
zipFerme(Nomarchive)
LIB_Libellé2..Visible=Faux
LIBfichierencours..Visible=Faux
Ferme()