Получить каталоги, расположенные на диске С:\

[Don Karleone]

Добрый вечер уважаемые форумчане. Мне необходимо в TreeView создать дерево каталогов диска C:\. Я делаю следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  at: integer;
begin
//  TreeView1.SortType:=stNone;
  at:=faDirectory;  

  if FindFirst('C:\*.*', at, sr) = 0
    then
        begin
          repeat
              TreeView1.Items.AddChild(TreeView1.Items[0], sr.Name);
          until FindNext(sr) <> 0;
          FindClose(sr);
        end;

//  TreeView1.SortType:=stText;
end;

но помимо каталогов, добавляются еще такие файлы как Autoexec.bat, x.bmp, config.sys. Что не так? Как мне избавиться от этих файлов? Мне нужны только коталоги?

[Пепел Феникса]

а кто мешает проверять аттрибуты найденого файла?

[Don Karleone]

Сообщение от Пепел Феникса

а кто мешает проверять аттрибуты найденого файла?

по подробнее можно? я просто в этом новичек.

вот немного изменил свой код, вроде все заработало, только код я взял из delphiworld

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  at: integer;
begin
//  TreeView1.SortType:=stNone;
  at:=faAnyFile;

  if FindFirst('C:\*.*', at, sr) = 0
    then
        begin
          repeat
          if ((sr.Attr and faDirectory) = faDirectory) and
           (sr.Name <> '.') and
           (sr.Name <> '..') then
              TreeView1.Items.AddChild(TreeView1.Items[0], sr.Name);
          until FindNext(sr) <> 0;
          FindClose(sr);
        end;

//  TreeView1.SortType:=stText;
end;

кто-нибудь объясните плиз, что значат эти строки

((sr.Attr and faDirectory) = faDirectory) and
           (sr.Name <> '.') and
           (sr.Name <> '..')

[Пепел Феникса]

((sr.Attr and faDirectory) = faDirectory) and//проверяем что найденный файл это папка
(sr.Name <> '.') and//отсекаем папку . (эта же папка)
(sr.Name <> '..')//отсекаем папку .. (папка на уровне выше)

про первую строчку я и говорил

[Don Karleone]

с атрибутами вроде разобрался немного ). Не очено понятно с этими строками

(sr.Name <> '.') and//отсекаем папку . (эта же папка)
(sr.Name <> '..')//отсекаем папку .. (папка на уровне выше)

буду разбираться

[ArtGrek]

когда rar открываеш, там видел 2 точки, ето

(sr.Name <> '..')//отсекаем папку .. (папка на уровне выше)

а вот ето и мне не понятно, что значит (эта же папка)

(sr.Name <> '.') and//отсекаем папку . (эта же папка)

здесь мы ето не устанавливаем?

((sr.Attr and faDirectory) = faDirectory) and//проверяем что найденный файл это папка

[veniside]

а вот ето и мне не понятно, что значит (эта же папка)

.\ используется для обозначения текущей директории.

artemavd: для цитирования есть специальный тэг. Не надо изобретать велосипед, оформляй правильно посты.

[ArtGrek]

a
 b
  c

ищем в b
((sr.Attr and faDirectory) = faDirectory) ето c
(sr.Name <> '.') ето не та папка в которои ишем b = '.'
(sr.Name <> '..') ето не та папка выхода из b в, получаеца ето a = '..'
я верно понял?

[Serge_Bliznykov]

я верно понял?

если я Вас понял верно, тогда Вы поняли неверно!

поясню.
В любой папке (кроме корня диска есть служебная папка с именем .. (т.е. имя папки две точки подряд. Это ссылка на родительскую папку.
Запустите любой файловый командер, например Far Commander (или, банально, Пуск - Программы- Стандартные - Коммандная строка.
Перейтите через CD в любую папку (только не корневую)
и наберите там

dir .. /w

и посмотрите, что Вам будет выведено. (будет выведено содержимое родительской папки

А имя "." это ссылка на текущую папку. Т.е. это та папка, в который Вы сейчас находитесь.

Обычно эти служебные папки не нужны, поэтому их в коде и отбрасывают.

p.s. Найти Вам ссылку, где можно прочитать о файловой системе?

[ArtGrek]

если я Вас понял верно, тогда Вы поняли неверно!

вы об етом?

(sr.Name <> '..') ето не та папка выхода из b в, получаеца ето a = '..'

Это ссылка на родительскую папку.
родительскую для кого? если для b, то значит ето a, я понял верно