Comment copier un répertoire et son contenu ?

Version imprimable

Bonjour,

Pour effacer un repertoire et son contenu, j'utilise la fonction suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
uses ..., ShellApi;
 
function EffaceDossier(Dossier: string): Boolean;
var FileOpStruct: TShFileOpStruct;
begin
  FileOpStruct.Wnd := 0;
  FileOpStruct.wFunc := FO_DELETE;
  FileOpStruct.pFrom := PChar(Dossier+#0+#0);
  FileOpStruct.pTo := nil;
  FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT or FOF_ALLOWUNDO;
  FileOpStruct.lpszProgressTitle := nil;
  Result := ShFileOperation(FileOpStruct) = 0;
end;

et ça marche très bien

pour contre, je veux copier maintenant un répertoire et tout son contenu

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
uses ..., ShellApi;
 
function CopieDossier(DossierSource,DossierDestination: string): Boolean;
var FileOpStruct: TShFileOpStruct;
begin
  FileOpStruct.Wnd := 0;
  FileOpStruct.wFunc := FO_COPY;
  FileOpStruct.pFrom := PChar(DossierSource+#0+#0);
  FileOpStruct.pTo := PChar(DossierDestination+#0+#0);
  FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
  FileOpStruct.lpszProgressTitle := nil;
  Result := ShFileOperation(FileOpStruct) = 0;
end;

et ca ca ne marche pas, j'ai une solution qui marche déjà mais je voudrais l'optimiser en utilisant ça...

Merci de votre intervention constructive

Le code ci-dessous devrait vous aider à copier un répertoire et son contenu ou seulement copier son contenu.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
  function CopyALL(Source, Destination: string): string;
  var Operation:_SHFILEOPSTRUCTA;
  begin
    with Operation do
    begin
      wFunc := FO_COPY;
      pFrom := PChar(Source);
      pTo := PChar(Destination);
      fFlags := FOF_SILENT;
    end;
    SHFileOperation(Operation);
  end;

20/06/2004, 17h26
yoghisan

chui désole mais ca ne marche pas...
il y a une précaution particulière à prendre ?
20/06/2004, 17h34
yoghisan

Haaaaaaaaaaaaa, mon code marchait...
seulement, il ne faut pas déclarer le dossier SANS un '\' à la fin...
20/06/2004, 17h34
C.M

il faut ajouter l'unit ShellAPI dans la clause uses, je crois.
20/06/2004, 17h36
yoghisan

J'ai mis ton code ca marche pas j'ai une idée mais pas sur...
je crois qu'il faut mettre des +#0

Merci...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function TForm1.CopyALL(Source, Destination: string): string;
var Operation:_SHFILEOPSTRUCTA;
begin
  with Operation do
  begin
    wFunc := FO_COPY;
    pFrom := PChar(Source);
    pTo := PChar(Destination);
    fFlags := FOF_SILENT;
  end;
  SHFileOperation(Operation);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyALL(extractfilepath(application.ExeName)+'dossiersource',extractfilepath(application.ExeName)+'dossierdestination')
end;