.版本 2
.子程序 扫描一层
文件夹.参数 文件夹位置, 文本型
.局部变量 文件夹名, 文本型
.局部变量 文件名, 文本型
处理事件 ()
文件夹名 ＝ 寻找文件 (文件夹位置 ＋ “*”, #子目录)
.判断循环首 (文件夹名 ≠ “”)
文件夹名 ＝ 寻找文件 (, #子目录)
.判断开始 (文件夹名 ＝ “”)
.判断 (文件夹名 ＝ “..”)
.默认
编辑框2.加入文本 (文件夹名 ＋ #
换行符)
.判断结束
.判断循环尾 ()
.版本 2
.子程序 _按钮扫描1_被单击
.局部变量 起始地址, 文本型
.如果真 (编辑框1.内容 ＝ “”)
返回 ()
.如果真结束
扫描开始时 ＝ 取现行时间 ()
起始地址 ＝ 选择 (取文本右边 (编辑框1.内容, 1) ≠ “\”, 编辑框1.内容 ＋ “\”, 编辑框1.内容)
扫描一层文件夹 (起始地址)
这样就可以了