遍历目录下所有指定文件类型

.如果真 (取文本右边 (文件位置, 1) ＝ “\”)
返回 ()
.如果真结束
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 文件_取文件名 (文件位置, 真))
超级列表框1.置标题 (索引, 1, 文件位置)
索引 ＝ 索引 ＋ 1

.计次循环首 (超级列表框1.取表项数 (), 计次)
token ＝ 获取项目令牌 (项目组 [1])
文件名 ＝ 超级列表框1.取标题 (计次, 0)
文件路径 ＝ 超级列表框1.取标题 (计次, 1)
编辑框_log.加入文本 (上传文件 (文件路径, 编码_gb2312到utf8 (文件名), token) ＋ #换行符)
.计次循环尾 ()