Hi,
also ich würde gerne den gesamten Inhalt eines Ordners mit Unterordnern kopieren.
Ich habe diesen Code gefunden:
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;
Doch leider kopiert der den gesamten Ordner. Also Nicht den Inhalt sondern auch den unerwünschten Ordner.
Zum besseren Verständnis:
Ich will den inhalt von D:\gfr\ in e:\neu\ kopieren dann macht er das auch, aber es entsteht der neue Ordner: e:\neu\gfr\ Ich würde aber gerne den Inhalt von gfr in neu kopieren.
Wie kann man das machen?
Gruß Alexander