Dateien und Unterordner von einem Ordner in anderen Ordner K

[renekr]

Hallo,

Ich habe folgendes vor:

Ich will die Unterordner und Files und alles darunter liegende von einem Ordner in einen anderen Ordner kopieren.

Leider habe ich es nur geschafft einen Root Folder in einen anderen Ordner zu Kopieren,allerdings habe ich dann den Root Folder noch unter dem Ordner,das will ich aber so nicht.


Die funktion nehme ich dazu:

Delphi-Quellcode:

function CopyDir(const fromDir, toDir: string): Boolean; 
var 
  fos: TSHFileOpStruct; 
begin 
  ZeroMemory(@fos, SizeOf(fos)); 
  with fos do 
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY; 
    pFrom  := PChar(fromDir + #0); 
    pTo    := PChar(toDir)
  end; 
  Result := (0 = ShFileOperation(fos));
end;

Hat jemand etwas besseres auf Lager?

Vielen Dank.