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]

[Luckie]

Wozu nur die Parameter fromDir und toDir gut sind?

Und hast du auch alles gelesen? Die benötigte pas-Datei mit eingebunden?

Und wie wäre es, wenn du uns mal die Fehlermeldung sagst?

[Christian Seehase]

Moin Alexander,

dann binde doch mal shellapi unter uses ein.
Die Fehler dürften wohl daher kommen, das diese fehlt, und er z.B. SHFileOperation nicht kennt.

[AZRAEL]

die shellapi hab ich drinnen und bei fromdir und todir hab ichs versucht jedoch bekomm ich dann massenhaft fehler ... (der pfad wird in hochkomma gesetzt oder ?) ... jedenfalls bekomm ich einmal den fehler:

Unit1.pas(128) Statement expectet but 'FUNCTION' found.
und den Fehler
Unit1.pas(128)Illegal characters in input File: "($AO)


was bedeutet dass ? bzw. was mach ich falsch ?

[Luckie]

Zeig mal Code, wie du die Funktion aufrufst.

[AZRAEL]

das weiß ich ja eben noch net ... da ich keine Ahnung hab wie ich dass anstellen soll ... was wäre denn der richtige befehl um die Funktion aufzurufen ?