Проблема с поиском файла

[Ёжик в тумане]

Доброго времени суток! Мне нужна помощь... это касается поиска файла.
Допустим иметься некий файл file.txt по адресу c:\123\навание_папки_которое_я_не_з наю\file.txt
Так вот как мне этот файл найти если я знаю только первоначальный путь к нему?!
___________
З.Ы. Думал, что если укажу путь для поиска файла C:\123\*.*\file.txt то программа найдёт. Нужен пример кода.

[Serge_Bliznykov]

FindFirst + FindNext
примеры рекурсивного обхода есть на форуме..

впрочем, мне не сложно и продублировать:

// для работы функции MatchesMask()
//   добавьте в uses модуль Masks 

procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
  SearchRec: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Application.ProcessMessages;

      if (SearchRec.Attr and faDirectory) <> 0 then begin
        if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
                DirSearch(Dir + SearchRec.name, Mask, sl)
      end
      else
        if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
          Sl.Add(Dir + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  DirSearch('C:\123\', 'file.txt', Memo1.Lines);
end;

p.s. учтите, что вложенных каталогов может быть много и, соответственно, много может быть файлов с именем file.txt
в данном примере найдутся ВСЕ!

[Ёжик в тумане]

Спасибо тему можно закрыть