|
分享源码
界面截图: |
- |
是否带模块: |
纯源码 |
备注说明: |
- |
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 文件大小 | 整数型 | | 文件名 | 文本型 | |
树型框1. 清空 ()子程序_查找 (编辑框1.内容 )|
子程序_查找 | | | |
查找的目录 | 文本型 | | | | 父项目项目的索引 | 整数型 | | | | 如果 (取文本右边 (查找的目录, 1 ) ≠ “\”)查找的目录 = 查找的目录 + “\”如果真 (是否为空 (父项目项目的索引 )) 父项目项目的索引 = -1 文件名 = 寻找文件 (查找的目录 + “*.*”, 1 + 2 + 4 + 16 + 32 )判断循环首 (文件名 ≠ “”)如果真 (文件名 = “.” 或 文件名 = “..”)文件名 = 寻找文件 (, 1 + 2 + 4 + 16 + 32 )到循环尾 ()临时索引 = 树型框1.加入项目 (父项目项目的索引, 文件名, , , , , )如果真 (取文件属性 (查找的目录 + 文件名 ) = #子目录 )子程序_查找 (查找的目录 + 文件名, 临时索引 )文件名 = 寻找文件 (, 1 + 2 + 4 + 16 + 32 )到循环尾 ()文件名 = 寻找文件 (, 1 + 2 + 4 + 16 + 32 )判断循环尾 ()子程序_获取选中项信息 (树型框1. 取父项目 (树型框1.现行选中项 )) 变量名 | 类 型 | 静态 | 数组 | 备 注 | 完整目录 | 文本型 | | | 数组 | 文本型 | | 0 | i | 整数型 | | | 数组总数 | 整数型 | | |
完整目录 = 编辑框1.内容 + “\”父项目索引 = 树型框1. 取父项目 (树型框1.现行选中项 )判断循环首 (父项目索引 ≠ -1 )加入成员 (数组, 树型框1. 取项目文本 (父项目索引 ) + “\”)父项目索引 = 树型框1. 取父项目 (父项目索引 )判断循环尾 ()数组总数 = 取数组成员数 (数组 )计次循环首 (取数组成员数 (数组 ), i )完整目录 = 完整目录 + 数组 [数组总数 ]数组总数 = 数组总数 - 1 计次循环尾 ()文件大小 = 取文件尺寸 (完整目录 + 树型框1. 取项目文本 (树型框1.现行选中项 )) 编辑框2.内容 = 完整目录 + “ ” + 到文本 (文件大小 ÷ 1024 ) + “kb”
大神不要嘲笑我,我是刚学
|
评分
-
查看全部评分
|