Copydir Ok Restore Pfui?

[Go2EITS]

Hallo DP,

Zu copydir gibst es ja wunderbare Codebeispiele. Aber zu einem "Restore" habe ich ein Problem:

Wenn ich
copydir(G:\Hotfixes\Dir,'c:\winnt') ausführe, wird mir das Verzeichnis Hotfixes in C:\winnt (also C:\winnt\hotfixes\Dir) mit angelegt. Das ist nicht so gewollt. Ich möchte, wie in copydir angegeben, das Verzeichnis Dir so haben: C:\winnt\Dir...

Ich habe die DP und Google schon durchgesehen. Nix gefunden. hab Ihr für mich etwas? Bestimmt ist es wieder eine leichte Lösung? nachfolgend die "übliche" CopyDir.

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_NOCONFIRMATION or FOF_NOERRORUI;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

Genaugenommen will ich die Unterverzeichnisse verschieben:
G:\hotfixes\Dirs
nach
C:\winnt\dirs

Was mache ich falsch?
[EDIT] Alles nochmals umgeschrieben. [\EDIT}