Kompletten Ordner kopieren ...

[AZRAEL]

Hab jezz das hier dazu gefunden .... wo geb ich denn da die Ordner ein die ich kopieren will ... wenn ich es so in mein Programm einfüge geht gar nix .... es hagelt nur unmengen fehler ....

Delphi-Quellcode:

[color=#ff004c]
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;[/color]

[EDIT=Christian Seehase]Delphi Tags hinzugefügt[/EDIT]