|
9楼
发表于 2018-8-26 17:44:02
|
只看该作者
河北省石家庄市
.版本 2
.支持库 iext
.子程序 _树型框1_项目被选择
.参数 选择方式, 整数型
子程序_获取选中项信息 (树型框1.取父项目 (树型框1.现行选中项))
.子程序 子程序_获取选中项信息
.参数 父项目索引, 整数型
.局部变量 完整目录, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 数组总数, 整数型
完整目录 = 编辑框1.内容 + “\”
父项目索引 = 树型框1.取父项目 (树型框1.现行选中项)
.判断循环首 (父项目索引 ≠ -1)
加入成员 (数组, 树型框1.取项目文本 (父项目索引) + “\”)
父项目索引 = 树型框1.取父项目 (父项目索引)
.判断循环尾 ()
数组总数 = 取数组成员数 (数组)
.计次循环首 (取数组成员数 (数组), i)
完整目录 = 完整目录 + 数组 [数组总数]
数组总数 = 数组总数 - 1
.计次循环尾 ()
文件大小 = 取文件尺寸 (完整目录 + 树型框1.取项目文本 (树型框1.现行选中项))
编辑框2.内容 = 完整目录 + “ ” + 到文本 (文件大小 ÷ 1024) + “kb”
不会发源码,需要可以联系我,我也是刚学 |
|