WDForge.org - Forums

Sauvegarde fichiers compressés en zip

Sujet: Sauvegarde fichiers compressés en zip
par HAMICHA sur 6/11/2009 12:44:59

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()