如何取得指定资料夹（含子资料夹）内所有档案大小？
（除了递回加总外）

例如FSO有简单使用的功能吗？
有找到但不知道为什么不能运行

开玩笑！X="路径"？
程序不知道这个"路径"是什么！应该是X = "C:\ABCD\AA"，这个路径你按照你的需要修改。
另外你定义Lfoldersize 为对象，你是不是要获取目录的大小，那么应该是整形数据或长整形数据。
getfolder是FSO的方法，是获取目录的，不是获取目录大小的。

Dim GetFso As Long, FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
GetFso = FSO.GetFolder("D:\ABC\DOS").Size ''返回文件夹(包括子文件夹)内文件占用空间大小
Label1.Caption = CStr(GetFso) & "字节"

已经测试应该没有问题。好像路径是 C:\Windows 时，拒绝访问。

[此贴子已经被作者于2016-6-8 10:50编辑过]

百度的结果。
getfso=fso.GetFolder("c:\windows").Size '返回文件夹(包括子文件夹)内文件占用空间大小