Delphi Drawers

ファイルサイズを取得

ファイルのファイルサイズを取得します。

function fnGetFileSize(strFilePath:string):integer;
var
  iSumSize:integer;
  srTemp : TSearchRec;
begin
  iSumSize := -1;
  if FindFirst(strFilePath,faAnyfile,srTemp)=0 then begin
    iSumSize := srTemp.Size;
  end;
  fnGetFileSize := iSumSize;
end;

[] [delphi][0.00161480903625488]