Dateigröße ermitteln ohne Datei zu öffnen

[robinWie]

Hi,

ich suche die möglichkeit die Dateigröße zu ermitteln ohne die Datei zu öffnen.
In der Suche habe ich nichts gefunden und ich kenne bislang nur diese möglichkeit

Delphi-Quellcode:

var F: File
begin
 Assign(F,FileListBox1.FileName);
 Reset(F);
 Label1.Caption:=IntToStr(FileSize(F));
 ...
end;

[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

[Hawkeye219]

Zwei kleine Korrekturen:

1.) Falls die Datei nicht existiert, ist das Funktionsergebnis undefiniert.
2.) Das Schieben eines 32-Bit-Wertes um 32 Bits nach links löscht eigentlich nur den Wert.

Mein Vorschlag:

Delphi-Quellcode:

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

[marabu]

Danke für das Korrekturlesen. Als Result verwende ich dann lieber -1, da 0 eine legitime Größe für eine existierende Datei ist.

Schönes Wochenende

marabu

[Hawkeye219]

Stimmt, so ist's besser

Gruß,

Hawkeye

[Luckie]

Meine Version:

Delphi-Quellcode:

function GetFileSize(szFile: PChar): Int64;
var
  fFile             : THandle;
  wfd               : TWIN32FINDDATA;
begin
  result := 0;
  if not FileExists(szFile) then exit;
  fFile := FindFirstfile(pchar(szFile), wfd);
  if fFile = INVALID_HANDLE_VALUE then exit;
  result := (wfd.nFileSizeHigh * (Int64(MAXDWORD) + 1)) + wfd.nFileSizeLow;
  windows.FindClose(fFile);
end;

[marabu]

Hallo Michael, du non-VCL-Fetischist,

wenn du FileExists() raus nimmst und Result mit -1 initialisierst (siehe oben), dann nenne ich deinen Code elegant.

Freundliche Grüße vom marabu

[Daniel G]

Zitat von marabu:

wenn du FileExists() raus nimmst

Erklärst du kurz, warum? Oder hat das mehr "ästhetische" Gründe?

[ichbins]

weil fileexists in der sysutils steht und die nicht nonVCL-kompatibel ist