[求助]获取目录下所有文件和文件夹的大小？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]获取目录下所有文件和文件夹的大小？

共有2823人关注过本帖树形打印复制链接主题：[求助]获取目录下所有文件和文件夹的大小？

KWK001

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：110 积分：1417 威望：0 精华：0 注册：2016/8/17 12:49:00

[求助]获取目录下所有文件和文件夹的大小？ 发帖心情

Post By：2020/4/22 21:03:00 [只看该作者]

蓝老师，可以获取目录下所有文件和文件夹的大小吗？

以下代码只能获取文件的大小和实际不符？

CellButtonClick

Dim dlg As New FolderBrowserDialog

Dim Folder1, Folder2 As String

dlg.Description = "选择本地文件夹"

If dlg.ShowDialog = DialogResult.Ok Then

'获取文件夹大小

Dim d As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(dlg.SelectedPath)

Dim len As Double = 0

For Each f As System.IO.FileInfo In d.GetFiles

len += f.length

e.Row("文件大小")= (len / 1024 / 1024 & " MB")

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/23 9:35:00 [只看该作者]

比较麻烦：遍历文件夹里所有文件，把文件大小累加起来，如果还有子目录，递归进到子目录里再遍历....

主题：[求助]获取目录下所有文件和文件夹的大小？