Delphi

GetFileSize获取文件大小

封装成如下函数，可以直接使用：

///函数功能：获取文件大小，单位取KB，小数自动进位
///参数：sFilePath文件全路径
///Result: 成功是返回文件大小，失败时返回'N'
function GetFileSize(sFilePath: string): string;
begin
  try
    result := IntToStr(Ceil(FileSizeByName(sFilePath) / 1024));
  except
    on E: Exception do
    begin
      result := 'N';
      MessageDlg('Opps! Error Info[' + E.Message + ']', mtError, [mbOK], 0);
      Abort;
    end;
  end;
end;

  作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/
  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。