поиск файлов, создание дерева каталогов

← →
agent (2005-10-28 18:17) [0]

использую findfirst и findnext для создания дерева каталогов, и поска фалов. но что-то у меня не вяжется :)

findfirst(t, faDirectory, rec); if (rec.Name <> ".")and(rec.Name <> "..") then TreeView1.Items.AddChild(TreeView1.Selected, rec.Name); while findnext( rec ) = 0 do if (rec.Name <> ".")and(rec.Name <> "..") then TreeView1.Items.AddChild(TreeView1.Selected, rec.Name);

этот код должен выводить только каталоги. но он похоже этого не знает :) и выводит все подряд, кроме системных файлов..
пробовал проверить атрибуты файлов, для всех файлов и папок он вывел 32, то есть $20, а атрибут папки должен быть $10 =(

← →
clickmaker © (2005-10-28 18:22) [1]

из хелпа:

The Attr parameter specifies the special files to include in addition to all normal files

Руками проверяй атрибуты
(rec.Attr and faDirectory) <> 0

← →
agent (2005-10-28 19:12) [2]

спасибо =)

поиск файлов, создание дерева каталогов Найти похожие ветки