Поиск фаила на заданном диске... Опции

[Noname]

В Тр7.0 есть процедура(или функция) поиска файла в _ЗАДАННОМ_ каталоге. А как быть, если заранее не известно в каком каталоге искать этот файл.

[Vit]

Для дельфи это будет выглядеть так:

Procedure ScanDir(Dir:string);
  var SearchRec:TSearchRec;
begin
  if Dir<>'' then if Dir[length(Dir)]<>'' then Dir:=Dir+'';
  if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
    repeat
      if (SearchRec.name='.') or (SearchRec.name='..') then continue; 
      if (SearchRec.Attr and faDirectory)<>0 then
        ScanDir(Dir+SearchRec.name)  //we found Directory: "Dir+SearchRec.name"
      else
        Showmessage(Dir+SearchRec.name); //we found File: "Dir+SearchRec.name"
    until FindNext(SearchRec)<>0;
  FindClose(SearchRec);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ScanDir('c:');
end;

Для паскаля изменения будут незначительные