[listerine]

Сообщение от poli-smen

Каким образом ты выполняешь поиск файлов, что даже программа вылетает с ошибкой?
Используй для поиска FindFirst, FindNext, FindClose.

Я этим и пользуюсь. Вот код.

Код:

procedure FindFile(Dir:String);
Var SR:TSearchRec;
    FindRes:Integer;
begin
FindRes:=FindFirst(Dir,faAnyFile,SR);
While FindRes=0 do
   begin

      if ((SR.Attr and faDirectory)=faDirectory) then 
         begin
            FindFile(Dir+SR.Name+''); 
            FindRes:=FindNext(SR);
            Continue;
         end;


      FindRes:=FindNext(SR);
   end;
FindClose(SR);
end;

При поиске к примеру на локальном диске проблем не возникает.