Linux安全网 - Linux操作系统_Linux 命令_Linux教程_Linux黑客

会员投稿 投稿指南 本期推荐:
搜索:
您的位置: Linux安全网 > Linux编程 > » 正文

[代码]Delphi实现获取文件及文件夹大小(支持超过2G的大文件)

来源: 未知 分享至:

注意函数返回值类型是Int64,如果文件存在则返回文件大小,否则返回0。

function FileSize(FileName: string): Int64;
var
  sr: TSearchRec;
begin
  if FindFirst(FileName, faAnyFile, sr) = 0 then
    Result := Int64(sr.FindData.nFileSizeHigh) shl 32 + Int64(sr.FindData.nFileSizeLow)
  else
    Result := 0;

  FindClose(sr);
end;

由此可以得到获取文件夹大小的函数如下:

function FolderSize(FolderName: string): Int64;
var
  sr: TSearchRec;
begin
  Result := 0;

  if RightStr(FolderName, 1) <> '\' then FolderName := FolderName + '\';

  if FindFirst(FolderName + '*.* ', faAnyFile, sr) = 0 then
    repeat
      if (sr.Name <> '.') and (sr.Name <> '..') then begin
        Result := Result + FileSize(FolderName + sr.Name);

        if (sr.Attr and faDirectory) <> 0 then
          Result := Result + FolderSize(FolderName + sr.Name + '\');
      end;
    until FindNext(sr) <> 0;

  FindClose(sr);
end;

参考:

  1. File Size - Get the Size of a File in Bytes using Delphi
    http://delphi.about.com/od/delphitips2008/qt/filesize.htm
Technorati 标签: ,,爱生活,爱拉风

Tags:
分享至:
最新图文资讯
1 2 3 4 5 6
验证码:点击我更换图片 理智评论文明上网,拒绝恶意谩骂 用户名:
关于我们 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 发展历史