[Sharky]

Hi people!
каоче у меня такая беда:
моя прога считает файлы в какой либо папке а мне нужно что бы считала
во вложенный директориях
вот сам код :
Function GetFileCount(Dir, ext:string):integer;
var fs:TSearchRec;
begin
Result:=0;
if FindFirst(Dir+'\*.'+ext,faAnyFile-faDirectory-faVolumeID, fs)=0 then
repeat
inc(Result);
until FindNext(fs)<>0;
FindClose(fs);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption:=IntToStr(GetFileCount(Edit1.Text, Edit2.Text));
end;
заранее спасибо