.版本 2
.支持库 shell
.程序集 窗口程序集1
.子程序 _显示文件按钮_被单击
.局部变量 文件名, 文本型
.局部变量 文件目录, 文本型
文件目录 = 浏览文件夹 (“寻找文件”, )
.如果真 (文件目录 ≠ “”)
文件目录 = 选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录 + “\”, 文件目录)
文件名 = 寻找文件 (文件目录 + “*.*”, 32)
.判断循环首 (文件名 ≠ “”)
.如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
显示结果列表框.加入项目 (文件目录 + 文件名, )
.如果真结束
文件名 = 寻找文件 (, )
.判断循环尾 ()
.如果真结束
递归搜索