Discussion :

[PhilLU]

Bonjour,
Je n'arrive pas à copier des fichiers au travers du réseau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
filedest:=  'C:\truc\*.*';
fileSource := '\\192.168.201.172\Users\Documents\*.*';
if CopyFile(PChar(fileSource), PChar(fileDest), False) = True then
    memo1.Lines.Append('files copied.') else memo1.Lines.Append('files  NOT copied.') ;

J'ai aussi essayé avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fileSource := 'T:\XN-2\*.*';

mais pas mieux
Qui peux m'aider?
Thanks!

[SergioMaster]

Bonjour,

Peut être que tout simplement CopyFile ne copie qu'un seul fichier et non un ensemble de fichiers avec caractères de substitution !
Donc pour copier le répertoire entier (*.*) il faut balayer le répertoire FAQ Comment lister les fichiers d'un repertoire