Renombrar Carpeta

[Paulao]

Como hago para renombrar carpetas? Uso Delphi XE. Esta rutina abajo no funciono.

Código Delphi [-]
use SHELLAPI;

procedure TFileFinder.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;

[ecfisa]

Hola Paulao.

Código Delphi [-]
 
  RenameFile('C:\Viejo nombre','C:\Nuevo nombre');

Saludos.