Количество файлов в папке

← →
kalishenko (2004-04-22 17:40) [0]

Как программно определить количество файлов папке?

← →
DVM © (2004-04-22 17:54) [1]

FindFirst+FindNext+FindClose

← →
ASvencim © (2004-04-22 17:59) [2]

Несколько корявый способ: заносишь имена файлов в ListBox, потом в цикле смотришь, не равно ли очередное имя файла "".
Не уверен, что правильно, да и вряд - ли разумно.

Процедура заносит имена файлов в ListBox
procedure GetDir(dir:string;list:tlistbox);
var
sr:tsearchrec;
begin
if findfirst(dir+"\*.*",faanyfile,sr)=0 then
begin
list.Items.Add(sr.Name);
while findnext(SR)=0 DO
list.Items.Add(sr.Name);
END;
findclose(sr);
end;
//example
procedure TForm1.Button1Click(Sender: TObject);
begin
getdir("c:\windows",listbox1);
end;

← →
ASMiD © (2004-04-22 18:24) [3]

В прошлую пятницу по-моему этот вопрос уже бурно обсуждался.

← →
uny (2004-04-22 18:29) [4]

а почему количество файлов в каталоге не сохраняется в файловой системе? неужели мешает чему то? даже вон время последнего доступа к файлу сохраняется. не порядок:)

> а почему количество файлов в каталоге не сохраняется в файловой
> системе? неужели мешает чему то? даже вон время последнего
> доступа к файлу сохраняется. не порядок:)

Жди Лонгхорн. Там будет скорее всего. Сохранению количества файлов ничто не мешает, только вычисление этого количества будет тормозить работу (как и время последнего доступа, только раз в 10 сильнее)

Количество файлов в папке Найти похожие ветки