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

← →
Russko © (2004-04-08 17:02) [0]

Каким образом можно узнать кол-во файлов в указанном каталоге?

← →
Fay © (2004-04-08 17:06) [1]

FindFirstFile FindNextFile CloseFind

← →
Russko © (2004-04-08 17:13) [2]

Нет, мне необходимо кол-во файлов в указанном каталоге

← →
Serge © (2004-04-08 17:15) [3]

??? - по факам не пробовал поискать - лишних вопросов [2] не возникнет

← →
Russko © (2004-04-08 17:17) [4]

Пробовал и не нашёл((

← →
Тимохов © (2004-04-08 17:20) [5]

я бы тоже так делал...

FindFirstFile FindNextFile CloseFind

← →
Russko © (2004-04-08 17:24) [6]

Нет, мне как раз перед FindFirstFile FindNextFile CloseFind
надо знать их общее кол-во, причём могут присутствовать и поддиректории и в них мне тожа надо знать кол-во

← →
Skier © (2004-04-08 17:32) [7]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19

← →
Leonid © (2004-04-08 17:56) [8]

procedure TForm1.Button1Click(Sender: TObject);
Var
F:TFileListBox;
begin
F:=TFileListBox.Create(nil);
F.Parent:=Self;
F.Visible:=false;
F.Directory:="D:\Baza10";
F.Mask:="*.dbf";
Memo1.Lines.Assign(F.Items);
F.Free;
end;

//список файлов будет в Memo1

← →
TButton © (2004-04-08 17:57) [9]

нате, наслаждайтесь...
procedure TForm1.SSearch(path, mask: string); var sr: TSearchRec; nam: string; begin nam:=ExtractFileName(path); if (path="")or(mask="")or(nam=".")or(nam="..")then Exit; if FindFirst(path+"\"+mask,faAnyFile, sr)=0 then begin ListBox1.Items.Add(path+"\"+sr.Name); if sr.Attr=faDirectory then SSearch(path+"\"+sr.Name,mask); while FindNext(sr)=0 do begin ListBox1.Items.Add(path+"\"+sr.Name); ListBox1.itemIndex:=ListBox1.items.Count-1; if sr.Attr=faDirectory then SSearch(path+"\"+sr.Name,mask); end; FindClose(sr); end; end;

> нате, наслаждайтесь...

Ага, просто КАЙФ какой-то! :))))

Ты что, тоже под КАЙФОМ?

Это вопрос интимного плана или я что-то не так понял? Если интимного, то "Фи! Вы грубиян!", а если не понял - объясните пжалста.

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