Delphi 计算指定目录下所有文件的大小(遍历文件夹所有文件及目录)
2016-11-16 16:51
696 查看
function GetDirectorySize(const ADirectory: string): Integer; var SearchRec: TSearchRec; Ret: Integer; begin Result := 0; Ret := FindFirst(ADirectory + '\*.*', faAnyFile, SearchRec); // 查找成功返回0 '\*.*'通配符 匹配哪些文件 if Ret = NO_ERROR then begin repeat if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then begin //showmessage(ADirectory + '\' + SearchRec.Name); if (SearchRec.Attr) and (faDirectory) <> 0 then //判断是不是目录 GetDirectorySize(ADirectory + '\' + SearchRec.Name) else //是文件 Inc(Result,SearchRec.Size); end; Ret := FindNext(SearchRec); until Ret <> NO_ERROR; end; end;
相关文章推荐
- 编写一个SHELL脚本,可以获得指定目录下的所有文件及文件夹的大小。输出的样式与 ls -lh 命令相同。
- Python:遍历一个目录下所有的文件及文件夹,然后计算每个文件的字符和line的小程序
- SHELL编程练习-获得指定目录下的所有文件及文件夹的大小
- Java中如何利用File类递归的遍历指定目录中的所有文件和文件夹
- 遍历目录下的所有文件夹和文件,为指定文件改名
- MFC遍历指定目录下的所有文件/文件夹(不遍历子目录)
- C# 遍历指定目录下的所有文件及文件夹
- 遍历指定目录下的所有文件及文件夹
- 遍历某个文件夹(目录)下的所有文件 以及获取文件夹大小
- 这是一个定时脚本,主要功能是遍历该文件夹下的所有文件并存储到数组,对数据中的文件进行操作,一个一个移动到指定的目录下,并删除原有文件
- C# 删除、遍历指定目录下的所有指定文件、文件夹
- [置顶] win32命令行小程序获取指定文件夹或者目录下面的所有文件大小,文件数量,目录数量
- win32命令行小程序获取指定文件夹或者目录下面的所有文件大小,文件数量,目录数量
- 遍历指定目录下的所有文件夹和文件
- C# 遍历指定目录下的所有文件及文件夹以及遍历数据库的方法
- VC中遍历指定目录中的所有文件和文件夹
- 单例模式&&遍历指定目录下的所有文件以及文件夹
- python 实现统计ftp服务器指定目录下文件夹数目、文件数目及所有文件大小 本次主要为满足应用方核对上传到ftp服务器的文件是否缺漏。 主要要求:指定目录下,文件夹数目/文件数目/所有文件大小
- 遍历指定的目录下所有的文件和文件夹并给出目录层次
- Linux C :遍历输出指定目录下的所有文件