|
- .版本 2
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- .局部变量 盘符代码, 整数型
- .局部变量 盘符, 文本型
- .局部变量 百分比, 双精度小数型
- .局部变量 文本, 文本型
- ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
- .变量循环首 (65, 90, 1, 盘符代码)
- 盘符 = 字符 (盘符代码)
- 百分比 = 取磁盘可用空间百分比 (盘符)
- .如果 (百分比 = -1)
- 文本 = 文本 + 盘符 + “:\ 不存在”
- .否则
- 文本 = 文本 + 盘符 + “:\ 剩余:” + 到文本 (百分比) + “%”
- .如果结束
- 文本 = 文本 + #换行符
- .变量循环尾 ()
- 信息框 (文本, 0, , )
- .子程序 取磁盘可用空间百分比, 双精度小数型, 公开, 成功返回百分比,失败返回-1
- .参数 盘符, 文本型, 可空, 留空为当前盘符,例如:A、B、C
- .局部变量 运行盘符, 文本型, 静态
- .局部变量 盘符2, 文本型
- .局部变量 总空间, 整数型
- .局部变量 剩余空间, 整数型
- .如果真 (运行盘符 = “”)
- 运行盘符 = 取文本左边 (取运行目录 (), 1)
- .如果真结束
- .如果 (是否为空 (盘符))
- 盘符2 = 运行盘符
- .否则
- 盘符2 = 取文本左边 (盘符, 1)
- .如果结束
- 总空间 = 取磁盘总空间 (盘符2)
- 剩余空间 = 取磁盘剩余空间 (盘符2)
- .如果真 (总空间 = -1 或 剩余空间 = -1)
- 返回 (-1)
- .如果真结束
- 返回 (剩余空间 ÷ 总空间 × 100)
复制代码 |
|