Verzeichnisgröße ermitteln -> Probleme mit großen Dateien

[Nightshade]

Delphi-Quellcode:

function FileSize(Filename : string): int64;
var
  fs : TFileStream;  
begin
  result := -1;
  try
    fs := TFileStream.Create(Filename, fmOpenRead OR fmShareDenyWrite);
    result := fs.Size;
  finally
    fs.free;
  end;
end;

Das benutze ich immer ...