易语言如何获取文件夹大小。

如题所述

第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本回答被提问者和网友采纳