Переименовать папку

[Inbox]

Dir := ExtractFileDir(p)

Значение (p) - это что???

[Inbox]

А что именно за компоненты у тебя ?

DirectoryListBox в связке с DriveComboBox

[Kotofff]

тьфу , поспешил ....
это Path ....

[Inbox]

Я ваще процедуру нашел рабочую только значение надо подставить
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:\Dir', 'C:\Dir2'); //Здесь надо подставить значение
end;

[Kotofff]

Исходя из моего примера с ShellTreeView :

RenameDir(Tree.Path, ExtractFileDir(Tree.Path)+'\'+'Новое имя папки');

по-моему так ...

[Inbox]

почему два плюса? зачем палка в апострове?? так надо?

[KORN]

ну пиши так: RenameDir(Tree.Path, ExtractFilePath(Tree.Path)+'Новое имя папки');

[Kotofff]

почему два плюса? зачем палка в апострове?? так надо?

потому что ExtractFileDir(Tree.Path) возвращает путь без слеша в конце, а мы туда прибавляем новое имя - ведь ошибка будет ! - поэтому добавляем слеш