Нужно найти папку быстро но как?

[zotox]

И так я знаю токо имя файла
Мне надо....

Найти где расположен этот файл а именно путь к нему
Иначе если он не нашол (путь к файлу) то exit

[eoln]

function ScanDir(StartDir: string; FileName: string): string;
var  SearchRec : TSearchRec;
begin
  if StartDir[Length(StartDir)] <> '\' then
     StartDir := StartDir + '\';

  if FindFirst(StartDir+FileName, faAnyFile, SearchRec) = 0 then
  begin
    FindClose(SearchRec);
    result := StartDir;
    exit;
  end;

  if FindFirst(StartDir+'*', faAnyFile, SearchRec) = 0 then
  repeat
    if (SearchRec.Attr and faDirectory) = faDirectory then
    if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
    result := ScanDir(StartDir + SearchRec.Name, FileName);
  until (FindNext(SearchRec) <> 0) or (result <> '');
  FindClose(SearchRec);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := ScanDir('c:', '_log.txt');
  showmessage(s);
end;

Для одного диска. Если надо поиск по всем дискам, делаем цикл for i := 'A' to 'Z'

[Serge_Bliznykov]

zotox, только учтите, что это будет:
1) очень не быстро ;-(
2) может найтись путь не обязательно к тому файлу, который Вам нужен - поищите, через стандартный поиск, например, файлик readme.txt - гарантирую, что на диске C: он будет не один ;-)

[eoln]

Ну если надо все файлы с заданным именем, то заменяем

if FindFirst(StartDir+FileName, faAnyFile, SearchRec) = 0 then
  begin
    FindClose(SearchRec);
    result := StartDir;
    exit;
  end;

на

if FindFirst(StartDir+FileName, faAnyFile, SearchRec) = 0 then
  repeat
    if (SearchRec.Attr and faDirectory) <> faDirectory then
    memo1.lines.add(StartDir)
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);

На счёт времени. Если искать файл с уникальным именем, который по данному алгоритму будет найден самым последним после перебора 180 000 файлов и почти 12 000 папкок, то у меня время было 13 секунд.