[listerine]

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

Этот код ошибку выдавать не должен, разве что "Ошибку переполнения стека" из-за бесконечной рекурсии (так как обратный слэш в путь не добавляется и не проверяется на папки-исключения '.' и '..').
Какую ошибку выдаёт у тебя этот код?

p.s. На этом форуме запрещено исходный код выкладывать в виде обычного текста, можно только обрамляя его тегом [code] - исправь - иначе модераторы тебя заблокируют.

Все что вы сказали все это есть. Прошу прощения, но я это вырезал не предав этому значения, так как думаю проблема в другом. Ошибка "Отказано в доступе".

Вот код.

Код:

procedure FindFile(Dir:String);
Var SR:TSearchRec;
    FindRes:Integer;
begin

Dir := IncludeTrailingPathDelimiter(Dir);
FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR);
While FindRes=0 do
   begin

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

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

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