Работа с деревом TreeView и директория каталогов

[SERGOFF]

Помогите пожалуйста, может быть кто-то знает, как это реализовать:

Есть программа, в которой указывается рабочая директория (обычная папка на диске), а остальная структура должна достраиваться по дереву TreeView, т.е. допустим есть у меня в дереве Папка---> Авто, а в ней под папки ЗИЛ, ГАЗ, вот точно такая же структура должны строиться в выбранной директории (т.е. создастся папка Авто, а в ней создадутся тапки ЗИЛ и ГАЗ). Только я привет простой пример, а оригинал намного ветейватее! ))

[mihali4]

Это называется ShellTreeView...
А еще лучше - возьмите пару компонентов - DirectoryListBox и FileListBox.
И файлы все под рукой.
И никакой головной боли

[SERGOFF]

Немножко не так наверное объяснил!
У меня есть заполненный TreeView, я указываю нужную папку (делаю это любым способом, к примеру CreateDir(C:\Новая)) и вся структура, которая отображена в моём дереве создаётся в этой папке!!!

[mihali4]

Укажите "всю структуру" в качестве CHILD для создаваемой ветви.
Вопрос так до конца и остался не совсем понятным...

[SERGOFF]

Сообщение от mihali4

Укажите "всю структуру" в качестве CHILD для создаваемой ветви.
Вопрос так до конца и остался не совсем понятным...

Не, не не так немножко!
Т.е. создается не в самом TreeView а на диске!
Вот я создал CreateDir('C:\Новая'); - папку на диске с: и мне нужно чтобы в ней насоздавались каталоги, в соответствии с их Иерархией в TreeView! (т.е. TreeView содержит как бы "мертвые души", которые мне нужно создать в выбранной директории) Вот вроде понятно теперь точно, чего я хочу! )))

Пожалуйста очень нужно это узнать как делается!!!
У TreeView есть свойство TreeView1.SaveToFile - сохраняет структуру в файл, с любым расширением, я пробовал строить эти каталоги, считывая их названия с этого файла, но иерархии не получается не хватает мозга чтобы придумать функцию которая будет это делать!

[mihali4]

Для самого простого случая вот я вам такой же простенький примерчик набросал:

procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer;
begin
CreateDir('C:\MyNewDir');
for i:=0 to TreeView1.Items.Count-1 do
begin
if TreeView1.Items[i].HasChildren then
j:=i;
if TreeView1.Items[i].HasAsParent(TreeView1.Items[j]) then
CreateDir('C:\MyNewDir\'+TreeView1.Items[j].Text+'\'+TreeView1.Items[i].Text) else
CreateDir('C:\MyNewDir\'+TreeView1.Items[i].Text);
end;
end;

Для универсальности - выделенное красным оформите как функцию с рекурсией.

[SERGOFF]

mihali4 спасибо! ))
Функцию пробовал сделать, пока четно но время будет ещё попробую!