Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: CL | DM;

Вниз

Сколько файлов   Найти похожие ветки 

 
mss ©   (2006-01-06 12:17) [0]

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


 
Fay ©   (2006-01-06 13:10) [1]

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

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


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

Процедура реккурсивного поиска всех вайлов в указанном каталоге:
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;



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

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
8-1123460022
Valera
2005-08-08 04:13
2006.01.22
Проиграть AudioCD с помощью DSPack


14-1135201622
N
2005-12-22 00:47
2006.01.22
Опрос. Общепит в вашем городе.


14-1135639973
Пикселарт
2005-12-27 02:32
2006.01.22
Помогите подобрать ( нарисовать ) картиночки для кнопок ?


2-1135758673
darvin
2005-12-28 11:31
2006.01.22
ДПФ пример программной реализации Delphi


2-1136390857
St74
2006-01-04 19:07
2006.01.22
Как перехватить ошибку в приложении?