Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c