PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV (versões anteriores) → 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
Iniciado por kloboebenezer67, ago., 26 2024 11:50 AM - 2 respostas
#1
Publicado em agosto, 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
Membro registado
950 mensagems
Publicado em agosto, 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
Publicado em maio, 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?
→ Voltar para WINDEV (versões anteriores)