递归统计指定目录下所有文件容量总和
来源:互联网 发布:剑三女苍云捏脸数据 编辑:程序博客网 时间:2024/05/20 12:49
Public Class ShowDirSize
'递归统计指定目录下所有文件容量总和
Public Shared Function DirSize(ByVal d As IO.DirectoryInfo) As Long
Dim Size As Long = 0
' 统计本目录下所有文件容量总和
Dim fis As IO.FileInfo() = d.GetFiles()
Dim fi As IO.FileInfo
For Each fi In fis
Size += fi.Length
Next fi
' 递归统计所有子目录下所有文件容量总和
Dim dis As IO.DirectoryInfo() = d.GetDirectories()
Dim di As IO.DirectoryInfo
For Each di In dis
Size += DirSize(di)
Next di
Return Size
End Function
End Class
'调用代码
Dim dir As New System.IO.DirectoryInfo(TxtDir.Text)
TxtMessage.Text = ShowDirSize.DirSize(dir)
- 递归统计指定目录下所有文件容量总和
- linux下递归删除目录下所有指定类型文件
- linux下递归删除目录下所有指定的文件
- linux下递归删除目录下所有指定类型文件
- 递归 / 迭代两种方法实现查找指定目录下所有文件
- 递归列出指定目录下的所有文件的绝对路径
- 递归列出指定目录下所有的符号链接文件
- 递归列出指定目录下所有的普通文件
- 递归<二> --- 遍历指定目录下所有文件
- 遍历出指定目录下的所有文件 --递归调用
- 通过递归查询指定目录下的所有文件和子文件夹下的指定文件名
- C语言 递归地删除一个指定目录下所有指定类型的文件
- 递归获取指定目录下所有的指定格式的文件
- Shell脚本递归打印指定目录中所有目录文件
- 递归删除指定文件夹下所有文件
- 递归算法-统计指定目录下java文件内容的行数
- 查找指定目录下所有文件(包括子目录)——使用递归
- PHP获取指定目录下的所有文件,递归到子文件夹
- [随言杂语]祝自己中秋快乐!
- VB.NET的阳历与农历转换的算法
- 将货币的小写转换为大写,例如:肆佰陆拾贰圆捌角柒分
- 检查一个字符串是不是常用域名
- 获得字符串的MD5格式
- 递归统计指定目录下所有文件容量总和
- 获得硬盘D盘序列号
- 获得时间的字符串形式,例如:20031110
- 获得汉字字符串拼音首字母
- 使用HttpWebRequest获得URL的返回值
- 根据时间的字符串形式(20031110)获得日期型
- 返回8位小写字母数字混合随机密码
- 对称加密解密模块
- 2004.09.28,Tue - 今天收到的中秋短信