Поиск файлов в папке и ПОДПАПКАХ

[trafbite]

Привет.
Есть процедура поиска файлов:

procedure TForm1.FindFile(Dir: String);
  var
    sr: TSearchRec;
  begin
    PutList.Clear;
    if FindFirst(Dir + '*.*', faAnyFile, sr) = 0 then
    begin

      repeat
        if (sr.Name <> '..') and (sr.Name <> '.') then
          if (sr.Attr and faDirectory) <> 0 then
            FindFile(Dir + sr.Name + '\')
          else
            putlist.Append(Dir + sr.Name);
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
end;

но если в папке есть подпака, то процедура ищет только в подпапке. Помогите, пожалуйста, допилить, что бы искала и в папке, и во всех подпапках.

[Сергей Горбач]

Сообщение от trafbite

Привет.
Есть процедура поиска файлов:

procedure TForm1.FindFile(Dir: String);
  var
    sr: TSearchRec;
  begin
    PutList.Clear;
    if FindFirst(Dir + '*.*', faAnyFile, sr) = 0 then
    begin

      repeat
        if (sr.Name <> '..') and (sr.Name <> '.') then
          if (sr.Attr and faDirectory) <> 0 then
            FindFile(Dir + sr.Name + '\')
          else
            putlist.Append(Dir + sr.Name);
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
end;

но если в папке есть подпака, то процедура ищет только в подпапке. Помогите, пожалуйста, допилить, что бы искала и в папке, и во всех подпапках.

Указанный Вами алгоритм построен так, что искать во всех подпапках не будет. Вам достаточно побольше прочитать в разной документации по поиску файлов. Почти везде приводятся примеры, как осуществить поиск файлов во всех подпапках.

[Пепел Феникса]

а я скажу что кучи раз выкладывался код по поиску:
http://programmersforum.ru/showpost....1&postcount=11
например тут.

[trafbite]

Ребят, нифига я там не понял, можно пример?
Вот. например, нашел еще процедуру:

procedure FileFinder(Path: string;maska: string;recur: boolean ;sl: TStringList);
{
Path  - путь поиска
maska - маска поиска
recur - true  - искать и в подкаталогах
        false - искать только в указанной папке
sl    - список найденных файлов
}
var sr : TSearchRec;
begin
if (Path[Length(Path)]='\') then SetLength(Path,Length(Path)-1);
if FindFirst(Path+'\'+maska,faAnyFile,sr)=0
   then
      begin
         if (sr.Attr or faDirectory)=sr.Attr then
            begin
            if (recur=true) then
               begin
                  if (sr.name<>'.') and (sr.name<>'..') then
                  FileFinder(path+'\'+sr.Name,maska,recur,sl);
               end
            end
         else
         sl.Add(Path+'\'+sr.Name);
         while FindNext(sr) = 0 do
         if (sr.Attr or faDirectory)=sr.Attr then
            begin
            if (recur=true) then
               begin
                  if (sr.name<>'.') and (sr.name<>'..') then
                  FileFinder(path+'\'+sr.Name,maska,recur,sl);
               end
            end
         else
         sl.Add(Path+'\'+sr.Name);
      end;
   FindClose(sr);
end;

Но как ее вызывать?
Если делаю так:

FileFinder('D:\', '*.txt', true, List.Text)

то ругается

[avd]

// Функция удаляет из каталога dir (и всех подкаталогов) файлы
// с расширением ext которые созданы больше чем day дней назад.
procedure delFileOld(const dir: string; ext: string; day: word)
var
  f: TSearchRec;
  nameFile: string;
  dtfile: Tdate;
begin
  if findFirst(dir + '\*', faAnyFile, f) = 0 then
  repeat
    nameFile := f.Name;
    if (nameFile = '.') or (nameFile = '..') then continue;
    if f.Attr = faDirectory then delFileOld(dir + '\' + nameFile, ext, day);
    if (AnsiLowerCase(ExtractFileExt(nameFile)) = AnsiLowerCase('.' + ext)) then
    begin
      dtfile := FileDateToDateTime(f.Time);
      if Now - dtfile > day  then DeleteFile(PwideChar(dir + '\' + nameFile));
    end;
  until findNext(f) <> 0;
  findClose(f);
end;

[trafbite]

avd, отлично, спасибо!