| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]获取目录下所有文件和文件夹的大小？ (http://www.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 -- 比较麻烦：遍历文件夹里所有文件，把文件大小累加起来，如果还有子目录，递归进到子目录里再遍历.... |