Проблемма с файлами и папками

[SlashMan]

имеется код:

if FindFirst(Path + '*.*', faAnyFile+faDirectory+faSysFile+faArchive+faReadOnly, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         Msg:=Msg+SR.Name+'*'+IntToStr(SR.Size)+'?';
       end
       else
         begin
         Msg:=Msg+'['+SR.Name+']*-1?';
         end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;

Он в принципе, работает, ищет файлы и директории в указанной папке..
НО. Например если Path:='C:\WINDOWS\' .. То некоторые папки(Fonts например) он определяет как файлы размером 0 байт... а некоторые папки вообще не видит.. как это исправить?

заранее спасибо

[Greblin]

http://programmersforum.ru/showthread.php?t=55091

[SlashMan]

Спасибо большое, тема помогла =)