PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV (précédentes versions) → Difficulty copying all files from a directory to a temporary directory at once
Difficulty copying all files from a directory to a temporary directory at once
Débuté par kloboebenezer67, 26 aoû. 2024 11:50 - 2 réponses
#1
Posté le 26 août 2024 - 11:50
CheminTemporaire est une chaîne = "C:\Temporaire_essaie\" // Chemin du répertoire temporaire pour la sauvegarde
sNomFichierZip est une chaîne = "Bdd_" + DateSys() + HeureSys() + ".zip" // Nom du fichier ZIP avec la date et l'heure
sListeFichier est une chaînes
SI Fichier <> "" ALORS
// Créer le répertoire temporaire s'il n'existe pas
SI PAS fRepExiste(CheminTemporaire) ALORS
fRepCrée(CheminTemporaire)
FIN

// Liste des fichiers .fic à copier
sListeFichier = fListeFichier(ComplèteRep(Fichier) + "*.fic", frNonRécursif)

POUR TOUTE CHAÎNE sUnFichier DE sListeFichier SÉPARÉE PAR RC
Trace(sUnFichier)
//fCopieFichier(Fichier, CheminTemporaire + sNomFichier)
FIN
FIN
#2
Membre enregistré
950 messages
Posté le 28 août 2024 - 12:02
Bonjour

zipAjouteListeFichier (Fonction) :
https://doc.pcsoft.fr/fr-FR/?3082038

ou
zipAjouteFichier (Fonction)
https://doc.pcsoft.fr/fr-FR/?3082008

MonArchive est un zipArchive

CheminTemporaire est une chaîne = "C:\Temp_Test\" // Chemin du répertoire temporaire pour la sauvegarde
sNomFichierZip est une chaîne = "Bdd_" + DateSys() + HeureSys() + ".zip" // Nom du fichier ZIP avec la date et l'heure
sFichiers_Fic est une chaîne = "C:\Mes Projets\Led\Exe\" // Chemin des Fichiers .Fic

sListeFichier est une chaîne = fListeFichier(ComplèteRep(sFichiers_Fic) + "*.fic", frNonRécursif)
SI sListeFichier = "" ALORS
Avertissement("Aucun fichier à archiver")
RETOUR
FIN

// Créer le répertoire temporaire s'il n'existe pas
SI PAS fRepExiste(CheminTemporaire) ALORS
fRepCrée(CheminTemporaire)
FIN

NumErrZip est un entier = zipCrée(MonArchive, ComplèteRep(CheminTemporaire) + sNomFichierZip) // création de l'Archive ZIP

SI NumErrZip = 0 ALORS
NumErrZip = zipAjouteListeFichier(MonArchive, sListeFichier, zipAucun) // Ajout de la liste de fichiers à l'archive ZIP
SI NumErrZip <> 0 ALORS
Erreur(zipMsgErreur(NumErrZip))
FIN
zipFerme(MonArchive)
SINON
Erreur(zipMsgErreur(NumErrZip))
FIN


Cdlt
#3
Posté le 09 mai 2025 - 12:09
Cédric_34 escribío:
Bonjour

zipAjouteListeFichier (Fonction) :
https://doc.pcsoft.fr/fr-FR/?3082038

ou
zipAjouteFichier (Fonction)
https://doc.pcsoft.fr/fr-FR/?3082008

MonArchive est un zipArchive

CheminTemporaire est une chaîne = "C:\Temp_Test\" // Chemin du répertoire temporaire pour la sauvegarde
sNomFichierZip est une chaîne = "Bdd_" + DateSys() + HeureSys() + ".zip" // Nom du fichier ZIP avec la date et l'heure
sFichiers_Fic est une chaîne = "C:\Mes Projets\Led\Exe\" // Chemin des Fichiers .Fic

sListeFichier est une chaîne = fListeFichier(ComplèteRep(sFichiers_Fic) + "*.fic", frNonRécursif)
SI sListeFichier = "" ALORS
Avertissement("Aucun fichier à archiver")
RETOUR
FIN

// Créer le répertoire temporaire s'il n'existe pas
SI PAS fRepExiste(CheminTemporaire) ALORS
fRepCrée(CheminTemporaire)
FIN

NumErrZip est un entier = zipCrée(MonArchive, ComplèteRep(CheminTemporaire) + sNomFichierZip) // création de l'Archive ZIP

SI NumErrZip = 0 ALORS
NumErrZip = zipAjouteListeFichier(MonArchive, sListeFichier, zipAucun) // Ajout de la liste de fichiers à l'archive ZIP
SI NumErrZip <> 0 ALORS
Erreur(zipMsgErreur(NumErrZip)) https://www.ez-passma.com
FIN
zipFerme(MonArchive)
SINON
Erreur(zipMsgErreur(NumErrZip))
FIN


Cdlt


Your code is solid and uses zipAjouteListeFichier efficiently. Just make sure sListeFichier is correctly formatted (use ChaîneVersTableau if needed). Add error handling for fRepCrée and maybe confirm success at the end. Want help adding other file types like .ndx or .mmo?
→ Revenir à WINDEV (précédentes versions)