Lazarus в Linux - Поиск файлов в папке

[BLACK_RAIN]

Здравствуйте.
Lazarus + Kubuntu + KDE4.
Как найти все файлы и подпапки в директории /home/god/pictures/ ?

[Stilet]

По идее FindFirst()...FindNext() должны действовать.
Примерно так: http://www.programmersforum.ru/showthread.php?t=6639

[BLACK_RAIN]

Да, но он почему-то не все файлы/папки находит. Не пойму, что не так.
вот код:

procedure find(dir : string);
var
  sr : TSearchRec;
begin
if FindFirst(dir+'/*.*',faAnyFile, sr)=0 then
repeat
  if (sr.Name<>'.') and (sr.Name<>'..') then
  begin
      if ((sr.Attr and fahidden)=0) and ((sr.Attr and fadirectory)=0) then
      begin
        form1.list.Items.Add(dir+'/'+sr.Name);
      end;
      if ((sr.Attr and fahidden)=0) and ((sr.Attr and fadirectory)<>0) then
      begin
        find(dir+'/'+sr.Name);
      end;
  end;
  form1.list.ItemIndex:= form1.list.Count-1;
  application.ProcessMessages;
until FindNext(sr)<>0;
SysUtils.FindClose(sr);
end;

вызов:

form1.list.clear;
find('/home/god');
или
find('/home/god/Изображения');

Находит не все файлы/папки, либо вообще ничего.

[BLACK_RAIN]

Кажется, решилось! Надо было

if FindFirst(dir+'/*',faAnyFile, sr)=0 then

вместо

if FindFirst(dir+'/*.*',faAnyFile, sr)=0 then

[Stilet]

  begin
      if ((sr.Attr and fanyfile)<>0) and ((sr.Attr and fadirectory)=0) then
      begin
        form1.list.Items.Add(dir+'/'+sr.Name);
      end else
      if (sr.Attr and fadirectory)<>0 then
      begin
        find(dir+'/'+sr.Name);
      end;
  end;