FORUM MP | Windev : sauvegarde fichiers compresses en zip

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

sauvegarde fichiers compresses en zip
	Forum : WINDEV Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ WINDEV
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

FORUM WINDEV
	Page précedente	Page suivante

BENKOUIDER
Nouveau membre

Inscrit : 05/06/2009
Messages : 2

#166745 Posté le 06/11/09 à 13:00

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

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

PROGYS
Nouveau membre

Inscrit : 18/12/2009
Messages : 12

#167541 Posté le 18/12/09 à 05:04

Salut,
1/ C'est bien ton truc : Minuscule(Droite(Resfichier,3))="ndx"
Mai ceci est plus pratique :
ResNomFichier = fExtraitChemin ("C:MesRépertoiresFichier.doc", fExtension
) = ".doc"

2/ Afin de suivre l'executable, met des 'info()'. Par exemple pourverifier 'Cheminarchive'

3/ cheminapplication= “d:compta+dossiers“ A EVITER utilise CompletRep qui lui ajoute un '' a la fin du chemin si il le faut. ensuit pourquoi ne pas faire un fRep pour vérifier le chemin
__________________________
PROGYS Technology
Développeur de solutions informatique

HAUT DE PAGE

PAGE : [1]

.: Site Web développé par Yann Pingot et l'équipe MPWG avec www.evolvia-web.com :.