Bonjour à tous,

Me voilà bien embêtée pour la copie de plusieurs fichiers... Après de longues recherches, je sais que la fonction permettant de copier un seul fichier est la suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
CopyFile('C:\Parameters\TEXTE.EXE','C:\c\TEXTE.EXE',true);
J'ai de même un bout de code qui permet de copier dossier par dossier avec les fichiers qui compose le dossier:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
function CopyFolder(FromFld, ToFld: string): boolean;
var fos: TSHFileopStruct; 
begin 
  //  Suppression des '\' de fin
  FromFld := ExcludeTrailingPathDelimiter(Trim(FromFld));
  ToFld := ExcludeTrailingPathDelimiter(Trim(ToFld)); 
 
  FillChar(fos, SizeOf(fos),0);
  with fos do 
    begin
      wFunc := FO_COPY;
      pFrom := PChar(FromFld+#0);
      pTo   := PChar(ToFld+#0);
      fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
    end;
  Result := ShFileOperation(fos)=0;
end;
Mais je souhaite copier plusieurs fichiers d'un dossier vers un autre dossier... J'ai entendu parlé de ShFileOperation mais je ne connais pas du tout... Est-ce que quelqu'un peut m'orienter svp ?

D'avance merci =D