PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → SAUVEGARDE REPERTOIRES SOUS REPERTOIRES et fichiers
SAUVEGARDE REPERTOIRES SOUS REPERTOIRES et fichiers
Iniciado por douda94, 01,mar. 2020 15:24 - 3 respuestas
Miembro registrado
3 mensajes
Publicado el 01,marzo 2020 - 15:24
Bonjour ,


je débute en Windev et sèche depuis quelques temps sur les fonctions de sauvegardes

Mon application a des DOSSIERS avec des SOUS DOSSIERS et des fichiers dans chaque sous dossier ( rtf , pdf docx ...)
comment effectuer à la fermeture de mon application une copie de sauvegarde automatiquement .


J'ai essayé les fonctions f copie , ziAjoute Fichier, zipAjouterepertoire ... mais je n'arrive au mieux qu'à copier que les fichiers du seul dernier sous répertoire. J'ai essayer l'exemple unitaire ZIP ; même résultat...Il y a une astuce ?
merci de votre aide .
Miembro registrado
2.321 mensajes
Publicado el 01,marzo 2020 - 17:25
Bonjour,

UnFichier, ResListeFichier sont des chaînes

// Création de l'archive
ResCréation = zipCrée(MonArchive, "C:\Temp\Archive.zip")
SI ResCréation = 0 ALORS
MonArchive est un zipArchive
ResListeFichier = fListeFichier("C:\Mon Rerpertoire\*.*", frRécursif + frInterruptible)

// Pour chaque fichier trouvé
POUR TOUTE chaîne UnFichier de ResListeFichier SEPAREE PAR RC
// Ajout d'un fichier dans une archive
ResAjoutFichier = zipAjouteFichier(MonArchive, UnFichier, zipDisque)
FIN

// Affichage du message d'erreur si le fichier n'a pas été ajouté
SI ResAjoutFichier <> 0 ALORS
Erreur(zipMsgErreur(ResAjoutFichier))
FIN
FIN


--
Bon dev,
Jean-Pierre
Miembro registrado
909 mensajes
Publicado el 01,marzo 2020 - 18:00
Y a plus qu'à copier ;)

cela mérite un +1

--
Christian - kick71
Publicado el 01,marzo 2020 - 22:09
vu comme ca c'est limpide ...Merci beaucoup .