Dateigröße ermitteln ohne Datei zu öffnen

[marabu]

Hallo Robin,

so könnte das funktionieren:

Delphi-Quellcode:

function FileSize(fn: TFileName): Int64;
var
  sr: TSearchRec;
begin
  if FindFirst(fn, faArchive, sr) = 0 then
  begin
    with sr.FindData do
      Result := nFileSizeHigh shl 32 + nFileSizeLow;
    FindClose(sr);
  end;
end;

Grüße vom marabu