Почему данная функция выводит не все имена папок???

← →
FEV (2009-09-16 19:13) [0]

Мне в программе необходимо вывести названия всех папок в определенной директории. Папок 84, из которых выводится только 38 по процедуре ниже:

procedure ListDir(Path: string; FileList: TStrings); var SR: TSearchRec; begin if FindFirst(Path+"*", faAnyFile, SR) = 0 then begin repeat if (SR.Attr = faDirectory) then begin FileList.Add(SR.Name); end; until FindNext(SR) <> 0; FindClose(SR); end; end;

Disk:=extractfilepath(Application.ExeName); ListDir(Disk+"\SOFT\", ListBox1.Items);

Не выводится имя папки, например: "Ahead Nero Burning Rom v6.6.0.1 Ultra Edition"...
В чем может быть проблема? Какие предложения?

← →
anonims (2009-09-16 19:19) [1]

if ((SR.Attr and faDirectory)= faDirectory) then
для папки как и для файла могут быть установлены другие атрибуты

← →
FEV (2009-09-16 20:07) [2]

ясно. спасибо. учту.

Почему данная функция выводит не все имена папок??? Найти похожие ветки