| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

FEV ©   (2009-09-16 19:13:00) 

Мне в программе необходимо вывести названия всех папок в определенной директории. Папок 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"...
В чем может быть проблема? Какие предложения?

---

FEV   (2009-09-16 20:07:00) [1]

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

---

anonims   (2009-09-16 19:19:00) [2]

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

---

Наверх