易语言如何全盘搜素主目录下指定文件

Question

如上图所示，如何搜索全盘主目录下的PathConfig.ini文件，不搜索子目录下的，当主目录下存在这个文件。就把文件路径添加到列表框，根目录下的就省略掉。求高手编写源码。在此感谢

Answer 1

.版本 2

.子程序 __启动窗口_创建完毕

.局部变量 盘符, 文本型

.局部变量 子目录, 文本型

.如果真 (输入框 (, “请输入盘符:”, “D:”, 盘符, ) ＝ 假)

    结束 ()

.如果真结束

.如果真 (取文本右边 (盘符, 1) ≠ “\”)

    盘符 ＝ 盘符 ＋ “\”

.如果真结束

子目录 ＝ 寻找文件 (盘符 ＋ “*”, #子目录)

.判断循环首 (子目录 ≠ “”)

    .如果真 (取文本左边 (子目录, 1) ≠ “.”)

        搜寻 (盘符 ＋ 子目录)

    .如果真结束

    子目录 ＝ 寻找文件 (, #子目录)

.判断循环尾 ()

.子程序 搜寻

.参数 目录, 文本型

.局部变量 文件名, 文本型

文件名 ＝ 寻找文件 (目录 ＋ “\PathConfig.ini”, )

.判断循环首 (文件名 ＝ “PathConfig.ini”)

    列表框1.加入项目 (目录, )

    文件名 ＝ 寻找文件 (, )

.判断循环尾 ()

追问

能不能提供下全盘搜索源码。你这是要输入盘符才能搜索， 要怎么实现点击按钮。就自动搜索本机所有磁盘主目录下指定的文件。。谢谢

追答

.版本 2

.支持库 eAPI

.子程序 _按钮1_被单击

.局部变量 子目录, 文本型

.局部变量 盘符, 文本型, , "0"

.局部变量 计次, 整数型

盘符 ＝ 取驱动器列表 ()

.计次循环首 (取数组成员数 (盘符), 计次)

    盘符 [计次] ＝ 盘符 [计次] ＋ “\”

    子目录 ＝ 寻找文件 (盘符 [计次] ＋ “*”, #子目录)

    .判断循环首 (子目录 ≠ “”)

        .如果真 (取文本左边 (子目录, 1) ≠ “.”)

            .如果真 (文件是否存在 (盘符 [计次] ＋ 子目录 ＋ “\PathConfig.ini”))

                列表框1.加入项目 (盘符 [计次] ＋ 子目录, )

            .如果真结束

        .如果真结束

        子目录 ＝ 寻找文件 (, #子目录)

    .判断循环尾 ()

.计次循环尾 ()