| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
|
| _目录编辑框_鼠标左键被放开 | 逻辑型 | |
|
| 横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
目录编辑框.内容 ＝
浏览文件夹 (“请选择要查询的目录”,
)时间1 ＝
取现行时间 ()
如果 (目录编辑框.内容 ＝
“”)
信息框 (“请输入或选择要查询的目录”, 0,
“提示”,
)
树型框1.
清空 ()
查找文件 (目录编辑框.内容,
)状态条1.
置文本 (2,
“共耗时” ＋
到文本 (取时间间隔 (取现行时间 (), 时间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, 目录名
)
判断循环尾 ()
