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

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

Сколько файлов

mss ©   (2006-01-06 12:17:00) 

Как мне узнать в указанном папке сколько файлов?

---

Алхимик   (2006-01-06 13:34:00) [1]

Процедура реккурсивного поиска всех вайлов в указанном каталоге:
procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;
begin
  if Mask = '' then
     Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
     StartDir := StartDir + '\';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then begin
     repeat
        Application.ProcessMessages;
        if (SearchRec.Attr and faDirectory) <> faDirectory then
           List.Add(StartDir + SearchRec.Name)
        else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then begin
           ScanDir(StartDir + SearchRec.Name + '\', Mask, List); { и рекурсия }
        end;
     until (FindNext(SearchRec) <> 0);
     FindClose(SearchRec);
  end;
end;

---

Fay   (2006-01-06 13:10:00) [2]

2 mss ©   (06.01.06 12:17)
Как узнать, сколько файлов в указанной папке?
Сосчитать по головам. Пример из жизни - счётные палочки.

З.Ы.
Ищи на форуме/в справке по слову FindFirst (или FindFirstFile)

---

Наверх