取得指定资料夹大小 - 编程论坛

ZHRXJR2016-06-07 13:37

开玩笑！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编辑过]