Hallo,
natürlich kann man die einzelnen Dateigrößen rekursiv ermitteln und akkumulieren. Manchmal ist es aber ganz angenehm, wenn man andere für sich arbeiten lässt:
Delphi-Quellcode:
function FolderSize(fn: TFileName): Int64;
var
fs, fo: OleVariant;
begin
if DirectoryExists(fn) then
begin
fs := {ComObj.}CreateOleObject('Scripting.FileSystemObject');
fo := fs.GetFolder(fn);
Result := fo.Size;
end else Result := -1;
end;
Grüße vom marabu