FindFirst не ищет файлы если в папке есть только папки с файлами.

[Человек_Борща]

Всем добра.

Нужно:
Рекурсивный обход папок и построение списка файлов.

Проблема:
каталог содержит папки, а те содержат файлы:
D:\123\
--+\1\
--+\2\
--+\3\
--+\ещё 10050 папок с файлами.
-- а тут файлов нет.

Код:

procedure ScanDir(StartDir, Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;
  code: integer;
begin
  if Mask = '' then Mask := '*.*';
  if StartDir[Length(StartDir)] <> '' then StartDir := StartDir + '';
  code := FindFirst(StartDir + Mask, faAnyFile and faDirectory, SearchRec);
  if code <> 0 then
    ShowMessage(SysErrorMessage(code));
  if code = 0 then
  begin
    try
      repeat
        Application.ProcessMessages;
        if (SearchRec.Attr and faDirectory) <> faDirectory then
          List.Add(StartDir + SearchRec.Name)
        else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
          ScanDir(StartDir + SearchRec.Name + '', Mask, List);
      until FindNext(SearchRec) <> 0;
    finally
      FindClose(SearchRec);
    end;
  end;
end;

code = 2, т.е. не найден указанный файл или путь.

IDE: Delphi 7

[Человек_Борща]

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

[Stilet]

Не оч. понял что у тебя происходит, но сам уже сколько лет пользуюсь таким: http://www.programmersforum.ru/showthread.php?t=6639
Ни разу не подводило.

[Аватар]

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

Можно и одним циклом

procedure ScanDir(StartDir, Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;
  code: integer;
begin
  if Mask = '' then Mask := '*.*';
//  if StartDir[Length(StartDir)] <> '' then StartDir := StartDir + '';
  if StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';
//  code := FindFirst(StartDir + Mask, faAnyFile and faDirectory, SearchRec);
  code := FindFirst(StartDir + '*.*', faAnyFile and faDirectory, SearchRec);
  if code <> 0 then
    ShowMessage(SysErrorMessage(code));
  if code = 0 then
  begin
    try
      repeat
        Application.ProcessMessages;
//        if (SearchRec.Attr and faDirectory) <> faDirectory then
        if ((SearchRec.Attr and faDirectory) <> faDirectory) and MatchesMask(SearchRec.Name,Mask) then
          List.Add(StartDir + SearchRec.Name)
//        else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
        else if ((SearchRec.Attr and faDirectory)=faDirectory) and (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
//          ScanDir(StartDir + SearchRec.Name + '', Mask, List);
          ScanDir(StartDir + SearchRec.Name , Mask, List);
      until FindNext(SearchRec) <> 0;
    finally
      FindClose(SearchRec);
    end;
  end;
end;

[northener]

FindFirst(StartDir + '*.*', faAnyFile and faDirectory, SearchRec);

Забавное у вас значение параметра Attr

[Аватар]

То, что бы масло масляней было

[northener]

Сообщение от Аватар

То, что бы масло масляней было

Ну уж если переходить на аналогии, то это скорее попытка выдать дешевый маргарин (faDirectory) за дорогое сливочное масло.

[Аватар]

Вообще-то да, не обратил внимания. От faAnyFile and faDirectory должно остаться только faDirectory. А чего вообще работает? Запустил у себя по маске *.exe в сильно древовидном каталоге нашло как ни в чем не бывало. Поменял на faAnyFile - тот же результат

ADD врубился, там обычные файлы, поэтому и сработало

The Attr parameter specifies the special files to include in addition to all normal files. Choose from these file attribute constants when specifying the Attr parameter: