ファイルサイズを取得
ファイルのファイルサイズを取得します。
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;