Ordnergröße ermitteln

[himitsu]

Leider fehlt immernoch etwas Wichtiges,
https://quality.embarcadero.com/browse/RSP-41662

aber

Delphi-Quellcode:

  var Size: Int64 := 0;
  TDirectory.GetFiles('C:\Users', '*.jpg', TSearchOption.soAllDirectories,
    function(const Path: string; const SearchRec: TSearchRec): Boolean
    begin
      Inc(Size, SearchRec.Size);
    end);
  ShowMessage(Size.ToString);

Wobei es in 85 Jahren vielleicht mal irgendwie so aussehn könnte

Delphi-Quellcode:

  var Size: Int64 := 0;
  for var FileEntry in TDirectory.GetFileIrgendwas('C:\Users', '*.jpg', soAllDirectories) do
    Inc(Size, FileEntry.Size);
  ShowMessage(Size.ToString);