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;