древо каталогов

[Dunpeal]

Доброго всем время суток.
У меня вот какой вопрос: Как получить пути всех вложенных папок в указанной папке. Например, в папке Windows мне нужно получить пути всех находящихся там папок и записать их в *.txt. Причем уровень вложения +∞, т.е. и пути папок находящихся в system32 и в temp и т.д. и .т.п. Корневую папку указываю через ShellListView.

[selenux]

Можно попрововать бросить DirectoryListBox

Установить путь DirectoryListBox1.Directory := 'C:\WINDOWS';

и таким макаром обрабатывать. TDirectoryListBox потомок TCustomListBox

[Dunpeal]

Ммм... Не понимаю... ShellListView.Root, делает то же что и DirectoryListBox1.Directory. Как сделать обход всех вложенных папок и зафиксировать их имена и путь?

[selenux]

Привычка, отсюда и DirectoryListBox. Вложенные папки сканируются рекурсивно(Если Count=0 то вложенных папок нет)

[Dunpeal]

Нашёл как это делается... Осталось узнать как со 100% вероятностью определить каталог это или как раз наоборот... Сейчас есть 1 косяк: если в названии каталога есть точка, то программа не заносит его в список.

Вот алгоритм:

public
f1:TextFile;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(f1,'C:\123.txt');
Rewrite(f1);
ScanDir(ShellListView1.Folders[ShellListView1.ItemIndex].PathName,'*.',True);
CloseFile(f1);
end;
 
procedure TForm1.ScanDir(Path:string; SearchMask:String; ScanSub:boolean);
var SearchRec:TSearchrec;
a:integer;
begin
if ScanSub then
begin
FindFirst(path+'\*.',faDirectory,SearchRec);
FindNext(SearchRec);
a:=FindNext(SearchRec);
while a=0 do
begin
if (SearchRec.Attr and faDirectory)>0 then
ScanDir(Path+'\'+SearchRec.Name,SearchMask,ScanSub);
a:=FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
a:=FindFirst(Path+'\'+SearchMask,faDirectory,SearchRec);
while a=0 do
begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
Writeln(f1,Path+'\'+SearchRec.Name);
a:=FindNext(SearchRec);
end;
FindClose(SearchRec);
end;

[selenux]

имя содержащее точку в общем виде записывается *.*. естественно, что он не попадает под маску *.

надо попробовать не \*. а \*

[Dunpeal]

Я тоже так думал, но оказалось что маска *. выводит все что НЕ содержит точку... В общем-то удобно, но если в названии каталога есть точка, то он не заносит этот каталог в список...
А маска * выводит вообще все что найдет.
Надо как-то проверять не через маску... Например у ShellListView есть функция проверки IsFolder, если каталог то True. Но чтобы ею воспользоваться надо сначала в Root занести путь к каталогу, содержащему проверяемый файл, а потом ещё узнать какой он по счёту... Геморройно в общем... Может это как-то можно сделать через переменные Windows? Как-то же он понимает файл это или каталог.