Ordner umbenennen

[Duffy]

Hallo Basic-Master,
versuch es mal mit

Zitat:

Delphi-Syntax:

procedure Rename(var F; Newname: string);
procedure Rename(var F; Newname: PChar);

Beschreibung

Die mit F angegebene externe Datei erhält den neuen Namen Newname. Bei weiteren Operationen mit F wird die externe Datei unter dem neuen Namen angesprochen.

F ist eine Variable eines beliebigen Dateityps. Newname ist ein Ausdruck des Typs String bzw. des Typs PChar, wenn die erweiterte Syntax aktiviert ist.

Hinweis: Mit dem Compiler-Schalter {$I+} können Laufzeitfehler durch Exceptions behandelt werden. Wenn Sie {$I-} verwenden, müssen Sie mit IOResult explizit auf E/A-Fehler prüfen.

Delphi-Quellcode:

uses Dialogs;
var

  f : file;
begin
  OpenDialog1.Title := 'Choose a file... ';
  if OpenDialog1.Execute then 
  begin
    SaveDialog1.Title := 'Rename to...';
    if SaveDialog1.Execute then 
    begin 
      AssignFile(f, OpenDialog1.FileName);
      Canvas.TextOut(5, 10, 'Renaming ' + OpenDialog1.FileName + 
                     ' to ' + SaveDialog1.FileName);
      Rename(f, SaveDialog1.FileName);
    end;
  end;

end;

Sollte auch bei Verzeichnissen (getestet mit Delphi 7) funktionieren.
bye