excel vba获取子文件夹名称，文件夹大小

用excel vba遍历出文件夹下的文件。这个示例可以找出文件夹的所有文件名。当然有时，我们希望获取所有文件夹的子文件夹，查看他们的文件夹大小和路径。如下图，找出D:\安装打包路径下的所有文件夹名称
1510909510648876.png (41.74 KB, 下载次数: 0, 售价: 4 金钱)

2022-4-21 20:35 上传

点击文件名下载附件
1510909510648876.png

运行源代码，程序会自动在“sheet17”中添加"D:\安装打包"文件夹下的文件夹信息Sub获取子文件夹()
DimfsoAsNewScripting.FileSystemObject
DimsFolderAsFolder,iAsInteger
OnErrorResumeNext
i=1
WithWorksheets("sheet17")
ForEachsFolderInfso.GetFolder("D:\安装打包").SubFolders
.Cells(i,1)=sFolder.Name
.Cells(i,2)=Round(sFolder.Size/1024,2)&"KB"
.Cells(i,3)=sFolder.Path
i=i+1
Next
EndWith
Setfso=Nothing
EndSub