PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → copie
copie
Iniciado por julien ris*, 23,mar. 2020 14:24 - 4 respuestas
Miembro registrado
16 mensajes
Publicado el 23,marzo 2020 - 14:24
Bonjour
je n'arrive pas à copié tous les fichiers d'un dossier vers un autre dossier par BTN_clic
voici le code :

FichierACopier est une chaîne = SC_SelecteurRépertoire3
FichierCopié est une chaîne = SC_SelecteurRépertoire2
ResCopie est un booléen

ResCopie = fCopieFichier(FichierACopier, FichierCopié)
SI ResCopie = Faux ALORS
Erreur(ErreurInfo(errMessage))
SINON
Info("Le fichier a été copié")
FIN

merci encore pour votre aide
Miembro registrado
2.321 mensajes
Publicado el 23,marzo 2020 - 15:26
Bonjour,

Un petit effort, cf. :
https://doc.pcsoft.fr/fr-FR/index.awp?3036004
// Copie les fichiers présents dans le répertoire "C:\MesImages"
// Les sous-répertoires et leurs fichiers sont pris en compte (constante frRécursif)
ResCopie = fCopieFichier("C:\MesImages\*.*", "D:\MesFichiers\", frRécursif)


--
Bon dev,
Jean-Pierre
Miembro registrado
16 mensajes
Publicado el 24,marzo 2020 - 14:22
merci je vais tester cela
Miembro registrado
16 mensajes
Publicado el 24,marzo 2020 - 14:31
Je viens de faire l'essai et j'arrive à copier 1 fichier mais pas un dossier complet
le code est :

fCopieFichier(SC_SelecteurRépertoire3, SC_SelecteurRépertoire2)

Il manque quelque chose mais quoi? merci beaucoup
Miembro registrado
16 mensajes
Publicado el 24,marzo 2020 - 15:02
bon j'ai fais aussi cela, j'avance mais c'est pas encore ça :
sCheminfichier est une chaîne
sResnomfichier est une chaîne
sCheminfichier = SC_SelecteurRépertoire3
sResnomfichier = fExtraitChemin(sCheminfichier,fFichier)


sCheminfichiera est une chaîne
sResnomfichiera est une chaîne
sCheminfichiera = SC_SelecteurRépertoire2
sResnomfichiera = fExtraitChemin(sCheminfichiera,fFichier)


fCopieFichier(sResnomfichier,sResnomfichiera, frRécursif)