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

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

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

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")

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