Dateigröße ermitteln, wie geht Ihr vor?

Hi, hier ein beispiel wie ich es mit Delphi mache

Delphi-Quellcode:

			// return -1 if file not found else size in byte

function lwFileSize(sFileToExamine: string) : Longint;

var

  fFile  : file of Byte;

begin

  Result := -1;

  if FileExists(sFileToExamine) then

  try

    FileMode := 0;

    AssignFile(fFile, sFileToExamine);

    Reset(fFile);

    Result := FileSize(fFile);

  finally

    Close(fFile);

  end;

end;

ist diese art und weise veraltet und überholt?

Grüße

ps: ich wusst nicht wohin deshalb ist es hier gelandet.

Dateigröße ermitteln, wie geht Ihr vor?

Dateigröße ermitteln, wie geht Ihr vor?

Forumregeln