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

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

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

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

---

← →
DVM ©   (2004-04-22 19:10) [5]

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

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

---

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

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



Память: 0.46 MB
Время: 0.02 c