Hallo,
so sollte es funktionieren:
Delphi-Quellcode:
uses shellapi;
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;
fFlags := 0;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir)
end;
Result := (0 = ShFileOperation(fos));
end;
begin
CopyDir ('C:\From', 'C:\To'); // kopiert mit Quellordner
CopyDir ('C:\From\*.*', 'C:\To'); // kopiert Inhalt des Quellordners
end
Gruß Hawkeye