.版本 2
.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 b, 文本型
编辑框2.内容 = “”
寻找所有txt文件 (取运行目录 () + “\”)
.子程序 寻找所有txt文件
.参数 目录, 文本型
.局部变量 a, 文本型
.局部变量 b, 文本型
a = 寻找文件 (目录 + “*.*”, #存档文件 + #子目录)
.判断循环首 (a ≠ “”)
' 输出调试文本 (a)
.如果真 (取文件属性 (目录 + a) = #子目录 且 a ≠ “..” 且 a ≠ “.”)
寻找所有txt文件 (目录 + a + “\”)
.如果真结束
.如果真 (取文件属性 (目录 + a) = #存档文件 且 到小写 (取文本右边 (a, 3)) = “txt”)
输出调试文本 (目录 + a)
' 处理代码放到此处
.如果真结束
a = 寻找文件 (, #存档文件 + #子目录)
.判断循环尾 ()
追问好像不好用啊
本回答被提问者和网友采纳