递归统计指定目录下所有文件容量总和
2004-09-28 19:37
465 查看
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)
'递归统计指定目录下所有文件容量总和
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)
相关文章推荐
- 查找指定目录下所有文件(包括子目录)——使用递归
- IO流_递归输出指定目录下所有的java文件的绝对路径案例
- linux下递归删除目录下所有指定的文件
- asp.net 删除文件夹,指定文件夹,删除文件夹和所有文件,删除权限设置,递归删除文件夹目录及文件
- java递归复制所有指定规则的文件到同一目录下
- PHP递归遍历指定目录的文件并统计文件数量的方法
- 递归删除指定目录下所有文件及子目录
- asp.net 删除文件夹,指定文件夹,删除文件夹和所有文件,删除权限设置,递归删除文件夹目录及文件
- php 递归获取指定目录下,所有子级、孙级文件路径。
- shell统计指定目录下所有文件类型及数量
- linux下递归删除目录下所有指定类型文件
- 递归删除指定目录下的指定文件夹及其所有文件
- shell统计指定目录下所有文件类型及数量
- Perl脚本递归替换所有指定目录指定文件类型中的指定模式
- java语言基础(80)——递归获取指定目录下所有的文件
- Python:递归遍历目录,统计目录大小,并以列表的形式返回所有py文件
- C# 使用 DirectoryInfo 递归指定目录中的所有目录及文件
- FileHasher:递归计算指定目录的所有文件的hash值,并依据hash值寻找重复的文件(update 2006-05-22)
- Java利用递归思想遍历指定目录,获取所有的文件
- Shell脚本递归打印指定目录中所有目录文件