Directory umbenennen?

[orchanin]

Hi, zusammen
ich habe volgendes problemm.
ich möchte ein verzeichniss ('\\server1\docus\mydocu'), in ('\\server1\docus\mydocu_1') umbenennen.
ich habe schon mit dem da (s. unten) ausprobiert, aber klappt ja nicht (ich vermute, weil kein laufverk eingegeben ist)
Wer kann mir helfen. Kann man selbstverständlich mit MkDir, moov und del das umgehen, aber das ist nicht schön.
Danke.

Delphi-Quellcode:

uses
  ShellApi;

procedure RenameDir(DirFrom, DirTo: string);
var
  shellinfo: TSHFileOpStruct;
begin
  with shellinfo do
  begin
    Wnd    := 0;
    wFunc  := FO_RENAME;
    pFrom  := PChar(DirFrom);
    pTo    := PChar(DirTo);
    fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
              FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  SHFileOperation(shellinfo);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  RenameDir('\\server1\docus\mydocu', '\\server1\docus\mydocu_1');
end;

[edit=alcaeus]Delphi-Tags eingefuegt und ueberfluessige Fragezeichen aus dem Titel entfernt. Mfg, alcaeus[/edit]

[Muetze1]

1. Nutze bitte die Delphi Tags
2. Schonmal mit RenameFile() probiert? RenameFile('\\server1\docus\mydocu', '\\server1\docus\mydocu_1');

[orchanin]

fantastisch

[Muetze1]

Zitat von orchanin:

fantastisch

Schön, fehlt nur noch Punkt 1....