Ordnergröße ermitteln

[DieDolly]

Habe das jetzt abgeändert. TempSize ist jetzt ganz weg.

Delphi-Quellcode:

      if (F.Name <> '.') and (F.Name <> '..') then
       begin
        if (F.Attr and faDirectory) = faDirectory then
         Inc(Result, RecurseFolder(Path + F.Name + '\'))
        else
         Inc(Result, F.Size); // <=
       end;