Ile plików....?

Jak sprawdzic ile plikow znajduje sie w danym katalogu?

Wyszukiwanie + zliczanie (TSearchRec+Integer) i wszystko jasne

<quote>Syriusza

To chyba nie forum o astronomii nie??
Taaa a najciemniejsza jest czarna dziura :]

<quote><quote>Syriusza

Wszystko oki ale nikt nie dął jakiejs konkretnej odpowiedzi.
Ja proponuje troche mało programistyczne. Wtaw te 3 obiekty z palety win3.1 dirlist filelistbox i ten od litery dysku. POtem daj w jakiejs procedurze np. label1.caption:=filelistbox1.items.count czy coś takiegop nie pamietam dokładnie jestm na informatyce. jak nie bezie działac pisz na gg 1363584 [hurra]

<font color="green">Wszystko oki ale nikt nie dął jakiejs konkretnej odpowiedzi.</span>

To mash kod.

var
S:TSearchRec;
Licz:integer;
Znaleziono:integer;
begin
Znaleziono:=FindFirst('Katalog*.*',faAnyFile,S);
while Znaleziono=0 do
begin
if not (S.Name='.') and not (S.Name='..') and not (ExtractFileExt(S.Name)='') then Inc(Licz);
Znaleziono:=FindNext(S);
end;

ShowMessage('W folderze znajduje się: '+IntToStr(Licz)+' plików');

;-)