1、打开易语言新建一个windows程序进入下图界面。
2、输入:取升察文件尺寸,这个命令。
3、展开这个命令闷缓,发现如下图参数。
4、这个参数我们输入:如下图。
5、再输入:调试输出这吵罩茄个命令如下图。
6、运行结果即可。
.版本 2.子程序 目录_取大小, 长整数枯枣型, , 取一个文件夹的大小;单位为字节型, 失败返回-1。
.参数 目录名路径, 文本型, , 如:D:\没茄拆Program Files
.局部变量 长度, 变体型
.局部纳燃变量 对象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
.版本 2.支没衫持库 spec
.如果真 (到整数 (取文件尺寸 (“C:\Windows\regedit.exe”枯核腔) ÷ 1000) =氏缓 133)
调试输出 (到整数 (取文件尺寸 (“C:\Windows\regedit.exe”) ÷ 1000))
.如果真结束
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)