ребят может у кого-нибудь есть исходники для программы поиска файлов соответствующих шаблону?

[andreww]

требуется написать программу для поиска файлов по шаблону.

вот код для поиска пустых каталогов.кто шарит помогите переделать

program vm6;
{$M 4096}
uses
sysutils;

procedure find(cat: string);
var
 inf: TSearchRec;  {возвр инф о след файле удов усл поиска}
begin
 if FindFirst(IncludeTrailingPathDelimiter(cat)+'*', not faDirectory, inf)<>0 then
 writeln(IncludeTrailingPathDelimiter(cat));
 FindClose(inf);

 if FindFirst(IncludeTrailingPathDelimiter(cat)+'*', faDirectory, inf)=0 then
  begin
   if inf.name='.' then FindNext(inf); if inf.name='..' then FindNext(inf);
   if inf.name='.' then FindNext(inf);

   if (inf.attr=16) and (inf.name<>'.') and (inf.name<>'..') then
   find(IncludeTrailingPathDelimiter(cat)+inf.name);
   while FindNext(inf)=0 do
    begin
     if (inf.attr=16) and (inf.name<>'.') and (inf.name<>'..') then
     find(IncludeTrailingPathDelimiter(cat)+inf.name);
    end;
  end;
 FindClose(inf); {закрывает поиск и освобож опер память}
end;

begin
if paramstr(1)='/?' then {если считывает /? то выдает инфор}
begin
writeln;
writeln('Программа осуществляет поиск пустых каталогов.');
writeln;
writeln('Введите после пробела местоположение каталога, в котором необходимо');
writeln('осуществить поиск. Если требуется поиск в корневом каталоге, введите /r');
exit;
end;
if paramstr(1)='' then {если ниче не набр}
begin
writeln('Не указано место поиска');
exit;
end;
if (paramstr(1)[length(paramstr(1))]<>'\') and (paramstr(1)<>'/r') then  { если путь введен неверно}
begin
writeln('Имя каталога задано неверно');
exit;
end;
if not DirectoryExists(paramstr(1)) and (paramstr(1)<>'/r') then {если не найден каталог }
begin
writeln('Данного каталога не существует');
exit;
end;
if paramstr(1)='/r' then {если введен ключ}
begin
find(copy(paramstr(0),0,3));
writeln('Работа программы окончена ');
exit;
end;
find(ExtractFilePath(paramstr(1)));
writeln('Работа программы окончена ');
readln;
end.

если у кого есть сбросьте код программы поиска скрытых папок

заранее благодарю