Jap tu ich mit dieser Funktion
Delphi-Quellcode:
function copydir(_sfromDir: string; _stoDir: string): boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(_sfromDir + #0);
pTo := PChar(_stoDir)
end;
Result := (0 = ShFileOperation(fos));
end;
Außerdem merke ich gerade wenn das Verzeichnis noch nicht vorhanden ist, fragt mich Windows ob ich dieses erstellen möchte, naja und dieses Fenster reagiert quasi auch nicht auf Abbrechen (überprüfung ob verzeichins vorhanden oder nicht mache ich mit directoryexists welche ja in der FileCtrl steht)