.版本 2
.程序集 窗口程序集1
.程序集变量 文本组, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 x, 整数型
查找文件 (“.exe”, 取运行目录 (), 文本组)
.计次循环首 (取数组成员数 (文本组), x)
编辑框1.加入文本 (文本组 [x] + #换行符)
.计次循环尾 ()
.子程序 查找文件, 逻辑型, , 查找文件的子程序 返回为真则有查找到文件,为假则无
.参数 查找文件名, 文本型, , 欲查找的文件名
.参数 查找路径, 文本型, , 查找文件的路径
.参数 文件组, 文本型, 参考 数组, 用于存放 找到文件的位置 的文本数组
.局部变量 文件名, 文本型
处理事件 () ' 加入它,可以在程序运行中,响应人为的操作
.如果真 (取文本右边 (查找路径, 1) ≠ “\”) ' 设置完整的文件路径
查找路径 = 查找路径 + “\”
.如果真结束
文件名 = 寻找文件 (查找路径 + “*.*”, ) ' 寻找当前目录的指定文件
.判断循环首 (文件名 ≠ “”) ' 显示找到的文件
文件名 = 寻找文件 (, )
.如果真 (寻找文本 (到大写 (文件名), 到大写 (查找文件名), 0, 假) > 0)
加入成员 (文件组, 文件名)
.如果真结束
.判断循环尾 ()
.判断开始 (取数组成员数 (文件组) > 0)
返回 (真)
.默认
返回 (假)
.判断结束