Написал небольшую консольную программку для поиска файлов. Все работает, только когда идет поиском НЕ на диске C:\, файлы находятсЯ, но выдается ошибка. Вот полный код программы:

Код

program timesaver; {$APPTYPE CONSOLE} uses  Windows,  SysUtils,  FileCtrl; var   FileName: string;  // имя или маска искомого файла   cDir: string;   filst:TextFile;   n: integer;       // кол-во файлов, удовлетворяющих запросу   winner:TextFile;   Complete:String; // поиск файла в текущем каталоге procedure Find; var   SearchRec: TSearchRec; // информация о файде или каталоге begin   GetDir(0,cDir); // получить имя текущего каталога   if cDir[length(cDir)] <> '\' then cDir := cDir+'\';   if FindFirst(FileName, faArchive,SearchRec) = 0 then       repeat          if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then             begin               writeln(cDir +  SearchRec.Name);               n := n + 1;             end;        until FindNext(SearchRec) <> 0;       // обработка подкаталогов текущего каталога       if FindFirst('*', faDirectory, SearchRec) = 0 then          repeat              if (SearchRec.Attr and faDirectory) = SearchRec.Attr then                  begin                    // каталоги .. и . тоже каталоги,                    // но в них входить не надо !!!                    if SearchRec.Name[1] <> '.' then                       begin                         ChDir(SearchRec.Name);// войти в каталог                         Find; // выполнить поиск в подкаталоге                         ChDir('..');// выйти из каталога                       end;                  end;          until FindNext(SearchRec) <> 0; end; // возвращает каталог, выбранный пользователем function GetPath(mes: string):string; var  Root: string;      // корневой каталог  pwRoot : PWideChar;  Dir: string; begin  Root := ''; // корневой каталог - папка Рабочий стол  GetMem(pwRoot, (Length(Root)+1) * 2);  pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);  if SelectDirectory(mes, pwRoot, Dir)     then          if length(Dir) = 2  // пользователь выбрал корневой каталог              then GetPath := Dir+'\'              else GetPath := Dir     else          GetPath := ''; end; // щелчок на кнопке Поиск begin if ParamCount>0 then begin        FileName := paramStr(1);  // что искать        cDir := paramStr(2);      // где искать        n:=0;                    // кол-во найденных файлов        ChDir(cDir);             // войти в каталог начала поиска        Find;                    // начать поиск end; end.

Вроде бы так. На скорую руку обрезал, возможно, будут какие-нить мелкие ошибки.
PS Выдает ошибку Invalid File Name

У меня работает. Сначала при поиске по диску D:\ выдал ошибку. Мне кажется, дело было в том, что там некоторые папки были запрещены для просмотра. По диску E:\ поиск нормальный.

Пара замечаний:
1)Забываешь делать FindClose - утечка ресурсов
2)Интересная строка
if (SearchRec.Attr and faDirectory) = SearchRec.Attr then
У меня из-за неё из 10 каталогов проверяет только 3...
Нужно так:
if (SearchRec.Attr and faDirectory) <> 0 then
3)Также не очень понятно, зачем тут стоит faArchive:
if FindFirst(FileName, faArchive,SearchRec) = 0 then
Просто ставь faAnyFile
4)Эта строка будет true в любом случае, так что её можно убрать:
if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
5)Такая проверка неправильная:
if SearchRec.Name[1] <> '.' then
Т.к. могут быть каталоги, начинающиеся с точки: ".exe", "...zzz"

А так всё работает, ничего не вылетает...

p0s0l
Можешь написать поправленный код?

Код

// поиск файла в текущем каталоге procedure Find; var  SearchRec: TSearchRec; // информация о файде или каталоге begin  GetDir(0,cDir); // получить имя текущего каталога  if cDir[length(cDir)] <> '\' then cDir := cDir+'\';  if FindFirst(FileName, faAnyFile,SearchRec) = 0 then  begin      repeat            writeln(cDir +  SearchRec.Name);            n := n + 1;            inc(cnt);       until FindNext(SearchRec) <> 0;     FindClose(SearchRec);  end;      // обработка подкаталогов текущего каталога      if FindFirst('*', faDirectory, SearchRec) = 0 then      begin         repeat             if (SearchRec.Attr and faDirectory) <>0 then                 begin                   // каталоги .. и . тоже каталоги,                   // но в них входить не надо !!!                   if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then                      begin                        ChDir(SearchRec.Name);// войти в каталог                        Find; // выполнить поиск в подкаталоге                        ChDir('..');// выйти из каталога                      end;                 end;         until FindNext(SearchRec) <> 0;         FindClose(SearchRec);      end; end;

Это сообщение отредактировал(а) p0s0l - 23.9.2003, 20:59

Borland_Delphi_6 - если ты уже успел посмотреть предыдущий пост, то опять придется его посмотреть, т.к. я тогда забыл одну вещь исправить...

Ok, большое спасибо!
Но у меня все равно вылетает.... Какое-то "неизвестное программное исключение", а в консоле пишит "Invalid File Name". Запускаю под XP, компилю под Delphi 6.

Ок, тогда тебе нужно узнать на каких именах гнется прога.
Измени такое место:
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
WriteLn ('***', cDir, ' *** ', SearchRec.Name);
ChDir(SearchRec.Name);// войти в каталог
....
И посмотри, в какой каталог была последняя попытка перейти...
Потом скажи их названия...

Ну а если выяснять причину влом, то сделай так:

Код

if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then begin  try    ChDir(SearchRec.Name);// войти в каталог    Find; // выполнить поиск в подкаталоге    ChDir('..');// выйти из каталога  except  end; end;

Это сообщение отредактировал(а) p0s0l - 24.9.2003, 09:53

Цитата

Ну а если выяснять причину влом, то сделай так:

Сделал так никакого результата...

Как хотя бы скрыть ошибку?

дело, как мне кажется, в следующем. в w2k/xp есть такая штука, как System Volume Information. это каталог. но войти в него нельзя. ни в досе, ни в фаре, ни в эксплорере. а поскольку раполагаться он может на разных винтах, а где-то его может и не быть вообще, то и ошибки воттак "гуляют" - у кого глючит, у кого нет. попробуй рекурсивно входить только в те каталоги, которые не являются системными, т.е.

Код

...  if ((SearchRec.Attr and faDirectory) = faDirectory) and    ((SearchRec.Attr and faSysFile) <> faSysFile) and    (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then begin    ...  end;  ...

Ну, System Volume Information прежде всего должен быть на диске с, а там ошибки не выдает.

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

З.Ы. у меня был похожий глюк. прога обшаривала указанный каталог и все подкаталоги и вытаскивала из них все иконки из всего, чего можно (dll, exe, etc.). nt у меня тогда стояла на диске d. так вот ,когда я задавал поиск по диску С:\, всё было хорошо. а на D - валилась в AV. лечить это таким образом смысла не имело, т.к. иконки обычно и лежат в системных файлах я просто плюнул. но дело, imho, именно в них.

Попробуй не использовать chdir, по-моему в нём все дело...
Для этого в функции Find добавь параметр пути:

Код

procedure Find(cDir : string); begin if cDir[length(cDir)] <> '\' then cDir := cDir+'\'; ...                 if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then                     begin                       Find(cDir + SearchRec.Name); // выполнить поиск в подкаталоге                     end; ... end;