Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Количество файлов в папке [D6, WinXP]

kalishenko © (2004-04-22 17:40:00)
Как программно определить количество файлов папке?

DVM (2004-04-22 19:10:00) [1]

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

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

uny (2004-04-22 18:29:00) [2]
а почему количество файлов в каталоге не сохраняется в файловой системе? неужели мешает чему то? даже вон время последнего доступа к файлу сохраняется. не порядок:)

ASMiD (2004-04-22 18:24:00) [3]
В прошлую пятницу по-моему этот вопрос уже бурно обсуждался.

ASvencim (2004-04-22 17:59:00) [4]
Несколько корявый способ: заносишь имена файлов в 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;

DVM (2004-04-22 17:54:00) [5]
FindFirst+FindNext+FindClose

Наверх

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