PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV (earlier 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
Started by kloboebenezer67, Aug., 26 2024 11:50 AM - 2 replies
#1
Posted on August, 26 2024 - 11:50 AM
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
Registered member
871 messages
Posted on August, 28 2024 - 12:02 PM
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
Posted on May, 09 2025 - 12:09 PM
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?
→ Go back to WINDEV (earlier versions)