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

.版本 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

文件夹本身是没有大小限制的，任何一个文件夹的容量大小都是取决于硬盘剩余空间的大小。包括易语言在内的任何程序设计都不可能真正改变文件夹的大小。但如果你非要限定一个文件夹的容量，可以编一个程序，专门用于统计文件夹内文件容量总数，当其值大于某个你规定的值时，就不再允许建立新文件。除了新建，程序还应该考虑到修改已存在的文件也会改变其大小等因素。这种程序应该在你访问文件夹之前启动，最好是开机就启动，以便确保全程监视指定文件夹，技术上，要用到HOOK

API。

个人觉得这种程序并不太适用，因为本质上它并没有对文件夹进行修改，只是人为地用一个程序对其进行了限制。如果换成是我，宁愿单独分配一个指定容量的磁盘分区。

---