以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取目录下所有文件和文件夹的大小？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149077)
--  作者：KWK001
--  发布时间：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
        Next
        e.Row("文件大小")= (len / 1024 / 1024 & " MB")
--  作者：有点蓝
--  发布时间：2020/4/23 9:35:00
--  
比较麻烦：遍历文件夹里所有文件，把文件大小累加起来，如果还有子目录，递归进到子目录里再遍历....