多线程扫描文件夹

状态条1.置文本 (1, “扫描完毕，正在输出文件列表……”)
恢复鼠标 ()
.计次循环首 (取数组成员数 (扫描的文件总列表), n1)
列表框1.加入项目 (扫描的文件总列表 [n1], )
状态条1.置文本 (1, 扫描的文件总列表 [n1])
.计次循环尾 ()
状态条1.置文本 (1, “输出文件列表完毕”)
标签1.标题 ＝ “文件：” ＋ 到文本 (列表框1.取项目数 ())
扫描结束时 ＝ 取现行时间 ()
状态条1.置文本 (0, “用时:” ＋ 到文本 (取时间间隔 (扫描结束时, 扫描开始时, #秒)) ＋ “秒”)