第1个回答 推荐于2016-03-29
.版本 2
.子程序 目录_取大小, 长整数型, , 取一个文件夹的大小;单位为字节型, 失败返回-1。
.参数 目录名路径, 文本型, , 如:D:\Program Files
.局部变量 SFO, 对象
.局部变量 长度, 变体型
.局部变量 对象1, 对象
.局部变量 Length, 长整数型
CoInitialize (0)
.如果真 (SFO.创建 (“scripting.FileSystemObject”, ))
对象1 = SFO.对象型方法 (“GetFolder”, 目录名路径)
长度 = 对象1.读属性 (“Size”, )
Length = 到长整数 (长度.取数值 ())
CoUninitialize ()
返回 (Length)
.如果真结束
返回 (-1)
.版本 2
.DLL命令 CoUninitialize, , "ole32.dll", "CoUninitialize", , 卸载COM
.版本 2
.DLL命令 CoInitialize, , "ole32.dll", "CoInitialize", , 加载COM
.参数 pvReserved, 整数型, , 值为0本回答被提问者和网友采纳