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

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

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


---

← →
WebErr ©   (2004-04-08 18:01) [10]

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

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

---

← →
TButton ©   (2004-04-08 18:02) [11]

а КАЙФ © тут причем? =)

---

← →
WebErr ©   (2004-04-08 18:07) [12]

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

---

← →
TButton ©   (2004-04-08 18:09) [13]

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

---

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

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



Память: 0.47 MB
Время: 0.023 c