Текущий архив: 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.05 c
