Ordner umbenennen

[Basic-Master]

Hi,
wie kann man ein Ordner umbenennen?

[sakura]

Folgender Beitrag kann auch genutzt werden, um Verzeichnisse umzubenennen.

http://www.delphipraxis.net/viewtopic.php?t=1451

...:cat:...

[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

[Stanlay Hanks]

Also eigentlich müsste es doch auch mit

Delphi-Quellcode:

 RenameFile('C:\Alter Ordner\','C:\Neuer Ordner\');

funktionieren. Ein ordner ist doch auch nur eine Datei, mit dem Directory Attribut (oder wie das heißt), oder?


Man liest sich, Stanlay :hi:

PS: Ich hab das grade ausprobiert. Also bei mir funzt das optimal.