就是 搜索指定路径下的 信息 然后里面显示了 所在的 1级索引 在有 2级索引 再有3级索引....
| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
编辑框1.内容 ＝
取特定目录 ( #系统桌面 )形成目录 (编辑框1.内容, -1
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 文件名 | 文本型 | | |
| 索引 | 整数型 | | |
| ii | 整数型 | | |
如果真 (取文本右边 (文件目录, 1
) ≠
“\”)
文件目录 ＝ 文件目录 ＋
“\”文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #子目录 )
判断循环首 (文件名 ≠
“”)处理事件 ()如果真 (取文本左边 (文件名, 1
) ≠
“.”)索引 ＝ 树型框1.
加入项目 (添加位置, 文件目录 ＋ 文件名, 0, , 1, ,
)如果真 (是否有子项 (文件目录 ＋ 文件名
))
树型框1.
加入项目 (索引,
“...”, 0, , , ,
)
文件名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()文件名 ＝
寻找文件 (文件目录 ＋
“*.*”,
)判断循环首 (文件名 ≠
“”)树型框1.
加入项目 (添加位置, 文件目录 ＋ 文件名, , , 2, ,
)文件名 ＝
寻找文件 (,
)判断循环尾 ()目录 ＝ 树型框1.
取项目文本 (项目索引
) ＋
“\” ＋ 目录
判断循环首 (树型框1.
取父项目 (项目索引 ＋ 1
) ≥ 项目索引
)树型框1.
删除项目 (项目索引 ＋ 1
)判断循环尾 ()形成目录 (目录, 项目索引
)如果真 (取文本右边 (文件目录, 1
) ≠
“\”)文件目录 ＝ 文件目录 ＋
“\”文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #子目录 )判断循环首 (文件名 ≠
“”)如果真 (取文本左边 (文件名, 1
) ≠
“.”)返回 (真)文件名 ＝ 寻找文件 (, #子目录 )判断循环尾 ()文件名 ＝
寻找文件 (文件目录 ＋
“*.*”,
)判断循环首 (文件名 ≠
“”)返回 (真)文件名 ＝
寻找文件 (,
)判断循环尾 ()返回 (假)树型框1.项目 ＝
{ }启动线程 (&子程序_测试, ,
)
