PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV (versiones precedentes) → 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, 26,ago. 2024 11:50 - 1 respuesta
#1
Publicado el 26,agosto 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
Miembro registrado
733 mensajes
Publicado el 28,agosto 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
→ Volver a WINDEV (versiones precedentes)