Ordnerstruktur abbilden

[marabu]

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