PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  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 Eben-Ezer, 26 aoû. 2024 11:50 - 1 réponse
#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é
682 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
→ Revenir à WINDEV (précédentes versions)