程序不知道这个"路径"是什么!应该是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编辑过]