Delphi FindFirst, не находит половину файлов.

[Winexcel]

Собственно такая картина:
Использую функцию FindFirst для поиска всех файлов в каталоге, функция не все файлы выводит, использую рекурсию для найденного каталога в директории. Если же не искать в каталогах а искать на корневом диске то функция находит все файлы, собственно код:

function SlashSep(Path, FName: string): string;
begin
 if Path[Length(Path)] <> '\' then
  Result := Path + '\' + FName
 else Result := Path + FName;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Clear;
 ScanFolder(edLookIn.Text);
end;

procedure TForm1.ScanFolder(Folder: String);
var
 sr: TSearchRec;
 FileName:String;
begin
 if FindFirst(Folder+'\*.*', faAnyFile, sr) = 0 then
  begin
   repeat
    if (sr.Name='.') or (sr.Name='..') then
     continue;

    FileName := SlashSep(Folder, sr.Name);

    // Ýòî äèðåêòîðèÿ?
    if (sr.Attr and faDirectory) = faDirectory then
     begin
      ScanFolder(FileName);
      Continue;
     end;

    // Íàéäåí ôàéë
      Memo1.Lines.Add(FileName);
   until FindNext(sr) <> 0;
   FindClose(sr);
  end;
  memo1.Lines.SaveToFile(extractfilepath(paramstr(0))+'log.txt');
end;

Если мы будем пропускать рекурсию:

    if (sr.Attr and faDirectory) = faDirectory then
     begin
      ScanFolder(FileName);
      Continue;
     end;

Изменив код на следующий

    if (sr.Attr and faDirectory) = faDirectory then
Continue;

То функция находит все файлы, вот пример действия с рекурсией:

C:\1.dat
C:\1.txt
C:\AUTOEXEC.BAT
C:\boot.ini
C:\Bootfont.bin
C:\CONFIG.SYS
C:\Cookies
C:\csb.log
C:\Deliker.exe
//ПЕРЕШЛИ НА ДРУГОЙ КАТАЛОГ 
C:\Documents and Settings\All Users\Application Data\Adobe\Acrobat\11.0\Replicate\Security\directories.acrodata
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\MAGAZINE Ad 2006 JPN.joboptions
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\PDFX1a 2001 JPN.joboptions
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\PDFX1a 2003 JPN.joboptions
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\PDFX1a 2003.joboptions
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\PDFX3 2002 JPN.joboptions
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\PDFX3 2003 JPN.joboptions
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\PDFX3 2003.joboptions
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\PDFX4 2008 JPN.joboptions

Прокомментировал где баг://ПЕРЕШЛИ НА ДРУГОЙ КАТАЛОГ

И собственно код без рекурсии пропуская директории:

C:\1.dat
C:\1.txt
C:\AUTOEXEC.BAT
C:\boot.ini
C:\Bootfont.bin
C:\CONFIG.SYS
C:\Cookies
C:\csb.log
C:\Deliker.exe
C:\Export.txt
C:\hiberfil.sys
C:\interbase.log
C:\IO.SYS
C:\MSDOS.SYS
C:\NTDETECT.COM
C:\ntldr
C:\Olike Bot Crack.exe
C:\oLikeBot.Deobf.exe
C:\oLikeBot.exe
C:\outfile.txt
C:\pagefile.sys
C:\PiarBot 1.7 by VANS.exe
C:\Project1.exe
C:\shopping.log
C:\TEMPtest.vbs
C:\WPI_Log.txt
C:\Òåêñòîâêà ïîä äîð.txt

Сразу видно что файлов в корневом каталоге гораздо больше чем выдаёт программа с рекурсией, код приведенный выше из библии делфи от Фленов. Скажите в чём ошибся автор такой книги.

[Stilet]

У меня отработала норм.

[Arigato]

А почему вы решили, что сначала будут найдены все файлы, а только потом каталоги? Ведь может быть и вперемешку.

[Winexcel]

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

А почему вы решили, что сначала будут найдены все файлы, а только потом каталоги? Ведь может быть и вперемешку.

Логика у вас тоже есть. Но, в конец процедуры я поставил вывод сообшения. showmessage. Дак вот, когда процедера габотает с рекурсией и вызывает себя с найденным каталогом, то после вызова себя завершается...собственно это и проблема. Да и не логично было бы писать все в перемешку. Нужно чтобы все файлы выводило по каталогам. В чем проблема н могу понять. Не мог же сам Фленов тут допустить ошибку..
ПЫСЫ сначала написал свой исходник с нуля(стараюсь все писать сам), думал я ошибку допустил, потом взял исходник из примеров, работает также.

[Stilet]

Не мог же сам Фленов тут допустить ошибку..

Не обожествляй его )

[Winexcel]

Ладно, хорошо, допустим что процедуры запускаются и раскидывают файлы в беспорядочно, создал критическую секцию:

procedure TForm1.ScanFolder(Folder: String);
var
 sr: TSearchRec;
 FileName:String;
begin
 if FindFirst(Folder+'\*.*', faAnyFile, sr) = 0 then
  begin
  cs.Enter;

   repeat
    if (sr.Name='.') or (sr.Name='..') then
     continue;

    FileName := SlashSep(Folder, sr.Name);

    // Ýòî äèðåêòîðèÿ?
    if (sr.Attr and faDirectory) = faDirectory then
     begin
     ScanFolder(FileName);
      Continue;
     end;

    // Íàéäåí ôàéë
      Memo1.Lines.Add(FileName);
      memo1.Lines.SaveToFile(extractfilepath(paramstr(0))+'log.txt');
   until FindNext(sr) <> 0;
   FindClose(sr);
   cs.Leave;
  end;
  showmessage('bb');
end;

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

[Serge_Bliznykov]

а давайте я Вам предложу другой вариант (честно говоря, думаю, что ваш тоже рабочий, просто где-то чуть-чуть логика нарушена...

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;

...

// вызов, например, так:
  DirSearch('C:\TEMP', '*.AVI', Memo1.Lines);

p.s. чтобы работал if MatchesMask(... нужно в uses дописать Masks
если нужны все файлы, без маски, то if MatchesMask() then можно совсем удалить, как и передаваемую маску...

[Winexcel]

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

а давайте я Вам предложу другой вариант (честно говоря, думаю, что ваш тоже рабочий, просто где-то чуть-чуть логика нарушена...

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;

...

// вызов, например, так:
  DirSearch('C:\TEMP', '*.AVI', Memo1.Lines);

p.s. чтобы работал if MatchesMask(... нужно в uses дописать Masks
если нужны все файлы, без маски, то if MatchesMask() then можно совсем удалить, как и передаваемую маску...

Ваш пример работает точно также:

C:\1.dat
C:\1.txt
C:\AUTOEXEC.BAT
C:\boot.ini
C:\Bootfont.bin
C:\CONFIG.SYS
C:\Cookies
C:\csb.log
C:\Deliker.exe
C:\Documents and Settings\All Users\Application Data\Adobe\Acrobat\11.0\Replicate\Security\directories.acrodata
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\MAGAZINE Ad 2006 JPN.joboptions
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\PDFX1a 2001 JPN.joboptions
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\PDFX1a 2003 JPN.joboptions
C:\Documents and Settings\All Users\Application Data\Adobe\Adobe PDF\Extras\PDFX1a 2003.joboptions
...

Код кнопки:

DirSearch('C:\','FaAnyFile',memo1.Lines);

Убрал маску совсем:

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
              Sl.Add(Dir + SearchRec.Name);
              sl.SaveToFile(extractfilepath(paramstr(0))+'log.txt');
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

[Stilet]

Ваш пример работает точно также:

Значит проблема не в коде.
Еще раз скажу что твой пример изначальный с рекурсией работает у меня норм.
Вот моя старая версия обхода: http://www.programmersforum.ru/showt...ighlight=findA

[Luuzuk]

ТС, ответьте на несколько вопросов:
1) Такой поиск по всему диску C: должен выполняться уйму времени. Вы точно дожидаетесь окончания поиска?

2) Пробовали ли вы после окончания поиска поискать свои "потерявшиеся" файлы в середине/конце/любом_другом_месте_ списка (в вашей реализации там они и должны оказаться)?

---------

Если вам нужен вывод файлов и содержимого подпапок не вперемешку (вангую, что проблема именно в этом), а "упорядоченно, то предлагаю следующий вариант:

procedure TForm1.ScanFolder(Folder: String);
...
var localDirs: array of string;
i: integer;
...
 if (sr.Attr and faDirectory) = faDirectory then
     begin
      тут кладем FileName в массив localDirs
      Continue;
     end;
....
until FindNext(sr) <> 0;
   FindClose(sr);
   if (localDirs.Length>0) then
     for i:=0 to localDirs.Length - 1 do
       ScanFolder(localDirs[i]);
....

Главное чтобы памяти и размера стека хватило ))


P.S. memo1.Lines.SaveToFile(extractfilep ath(paramstr(0))+'log.txt'); вынесите из рекурсивного метода, это же ужасно!