Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];
Вниз
Количество файлов в каталоге Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.035 c
