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

[Inbox]

Кидаем на форму (например) DirectoryListBox выделяем нужную папку, нажимаем кнопку и к имени добавляется цифра.
Как реализовать??

[Arigato]

Переименовать папку можно с помощью функции RenameFile (работает как с файлами, так и с папками).

[Inbox]

Мне нужен код типа:
переменная:= имя выделеной папки
ЛистБокс.Выделенаяпапка.RenameFile. name:=переменная+1.

[Inbox]

Или подскажите какие компоненты и свойства использовать.
А код я сам докумекаю.

[Kotofff]

Ложишь на форму TShellTreeView, например, из закладки Samples.
Выбираешь в нем какую-нить папку ...
Потом "нажимаешь кнопку" :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Path := tree.Path; // полный путь к выбранной в ShellTreeView папке
  Name := tree.Selected.Text;// тут будет только имя выбранной папки
  Dir := ExtractFileDir(p);//тут будет путь к выбранной папке без нее самой
  // теперь как советовал Arigato
  RenameFile(Path + '/' + Name, Path + '/' + 'Какое-то новое имя');
end;

[Inbox]

А что path, name, dir: это это уже существующие переменные?

[Kotofff]

да
объяви их перед процедурой - типом String
и вот еще забыл я :
после

RenameFile(Path + '/' + Name, Path + '/' + 'Какое-то новое имя');

обязательно :

Tree.Refresh(Tree.Selected.Parent);

иначе ошибки полезут ...
ShellTreeView сам не обновится после программного переименования одного из элементов в данном случае директории или файла

ЗЫ:
Tree - это и есть ShellTreeView - ну это наверное ясно

[Inbox]

ShellTreeView у меня нету вместо него, в Delphi-2009, я так понимаю DirectoryOutline.
А компонет DirectoryListBox подойдёт?

объяви их перед процедурой

я объявлю их в процедуре OK???

[Inbox]

Path := tree.Path//  такого свойства нет

В моих компонентах нет, может заменить на Directory???

[Kotofff]

А что именно за компоненты у тебя ?
Дай ... мне тоже надо ...