Поиск файлов в Delphi

[Николай ПН]

Посмотрел все что тут есть про поиск файлов. И везде надо указать конкретный каталог. Как можно сделать поиск если известен к примеру только 'C:\Program Files\' а в какой дальше папке находится не исзвестно?

[vovk]

вас "спасёт" рекурсия
сомневаюсь что всё, вот например, и ещё есть много тем где поиск в подкаталогах рассматривается

[Николай ПН]

Есть то оно есть, но не факт, что работает, в той ссылке, что ты дал, не работает, а просто виснет, а в первом случает так же ищет только в каталоге, а в подкаталогах нет=(

[Grag]

Тебе поможет компонент FindFile, работает с подкаталогами...

[vovk]

у себя выдернул из чготото старого, по моему чтото переделывал из найденного тут, или сам делал, точно уже не вспомню. Работает точно, выдернул из рабочого проекта

procedure FindFiles(StartFolder, Mask: string; List: TStrings;
  ScanSubFolders: Boolean = True);
var
  SearchRec: TSearchRec;
  FindResult: Integer;
begin
  List.BeginUpdate;
  try
    StartFolder := IncludeTrailingBackslash(StartFolder);
    FindResult := FindFirst(StartFolder + '*.*', faAnyFile, SearchRec);
    try
      while FindResult = 0 do
        with SearchRec do
        begin
          if (Attr and faDirectory) <> 0 then
          begin
            if ScanSubFolders and (Name <> '.') and (Name <> '..') then
              FindFiles(StartFolder + Name, Mask, List, ScanSubFolders);
          end
          else
          begin
            if MatchesMask(Name, Mask) then
              List.Add(StartFolder + Name);
          end;
          FindResult := FindNext(SearchRec);
          Form1.StatusBar1.Panels.Items[0].Text:=SearchRec.Name;
          Application.ProcessMessages;
        if otmena=true then break;
        end;
    finally
      FindClose(SearchRec);
    end;
  finally
    List.EndUpdate;

  end;
end;

главное используй голову, все что делают= делают под ссвои нужды, и так как сами понимают. Тебе надо только на примере разобратся, что происходит, и подправить под свои нужды.

[artemavd]

Когда уже наконец научитесь пользоваться поиском. Запарили с одними и теми же вопросами темы создавать. Закрыто.