Можно ли программно переименовать папку

[Rusl92]

Здравствуйте, как можно программно переименовать папку?

[NikLik]

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('C:\Dir1', 'C:\Dir2'); 
end;

[Stilet]

Можно еще RenameFile попробовать.

[Linch]

Народ помогите плз написать прогу под Delphi:

Нужно переиминовать в конревой папке(там где exe будет)
папка\папка\ПЕРЕИМИНОВАТЬ\папка\ПЕР ЕИМИНОВАТЬ\

Нужно переиминовать их на че что вводятся в окне программы (названия разные).

Плз оч прошу помогите, 2й день бьюсь.