Einzelnen Beitrag anzeigen

Go2EITS

Registriert seit: 25. Jun 2006
519 Beiträge
 
Delphi 7 Personal
 
#1

Copydir Ok Restore Pfui?

  Alt 20. Sep 2006, 16:42
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}
  Mit Zitat antworten Zitat