Discussion :

[ptitemeuh]

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

[ShaiLeTroll]

Quel est le problème ?
Si tu veux copier plusieurs fichiers, utilise CopyFile en boucle !
Sinon, ShFileOperation permet de le faire en une fois effectivement, lit le descriptif MSDN et le tutoriel de nono40, surtout la fonction ConcatTStrings qui est la clé pour écrire dans le tableau de chaine pFrom

[ptitemeuh]

Merci pour tes liens, je vais étudier ça. Disons que mon "problème" est que je souhaite un genre de code tel que:

Code :

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

CopyFile('C:\Parameters\*.*','C:\c\',true);

[ShaiLeTroll]

Je pense que le code actuel de CopyFolder permet déjà de le faire non ?


ajouter un éventuel FOF_NORECURSION

[ptitemeuh]

Exactement, le code actuel de CopyFolder permet déjà de le faire mais il permettait de copier de dossier vers dossier. Or je souhaitais copier tous les fichiers d'un dossier vers un autre dossier...

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Procedure CopyFiles(From, Dest:String);
var
  F : TShFileOpStruct;
begin
  F.Wnd := 0;
  F.wFunc := FO_COPY;
  F.pFrom := PCHAR(From);
  F.pTo := PCHAR(Dest);
  F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
  // Si le dossier est manquant --> Message d'erreur
  if ShFileOperation(F) <> 0 then MessageDlg('Dossier Parameters manquant', mtError ,[mbOk], 0);
end;

J'appelle ma procédure par:

Code :

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

CopyFiles('C:\Parameters\*.*','C:\c\');

Qu'en penses-tu ?

[evarisnea]

quelle version de dephi ?

si XE+, tu as les fonctions de l'unité IOUtils pour le faire simplement
TDirectory.Copy( CheminSource, CheminDestination);

[ptitemeuh]

Salut,

La version XE+, c'est Delphi 2011 ? Malheureusement, la version est Delphi6.

[ALWEBER]

tu peux aussi utiliser la fonction xcopy en lançant une commande dos

[ShaiLeTroll]

Qu'en penses-tu ?

Je n'en pense pas grand chose, testes le par toi même, tu verras bien ce que cela fait, à un moment, il faut se lancer !

il te manque les fin de tableau dans pFrom et pTo, très important !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure CopyFiles(From, Dest:String);
var
  F : TShFileOpStruct;
begin
  ZeroMemory(@F, sizeof(F));
  F.wFunc := FO_COPY;
  F.pFrom := PCHAR(From + #0);
  F.pTo := PCHAR(Dest + #0);
  F.fFlags := FOF_FILESONLY or FOF_SIMPLEPROGRESS or FOF_RENAMEONCOLLISION;
 
  ForceDirectories(Dest);
  if ShFileOperation(F) <> 0 then MessageDlg('Dossier Parameters manquant', mtError ,[mbOk], 0);
end;