Delphi - 获取文件大小

GetFileSize获取文件大小

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

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

作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/

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