.版本 2
.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 目录, 文本型
a = 寻找文件 (编辑框1.内容, )
.判断循环首 (a ≠ “”)
信息框 (a, 0, )
目录 = 编辑框2.内容 + “\” + 取文本右边 (a, 取文本长度 (a) - 倒找文本 (a, “\”, , 假))
输出调试文本 (目录)
.如果 (复制文件 (“c:” + “\” + a, 目录) = 真)
信息框 (“已经完成目录扫描!~”, 0, “提示”)
.否则
.如果结束
a = 寻找文件 (, )
.判断循环尾 ()