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