易语言 怎么寻找所有文件

首先要枚举出硬盘分区根目录，然后逐个根目录进行寻找文件，最后如果找到123.dll，d出一个信息框，为“123.dll”代码如下：

.版本2.支持库eapi

.子程序_按钮1_被单击.局部变量文本数组,文本型,,"0".局部变量i,整数型

文本数组＝取驱动器列表(1)

'这里枚举出硬盘分区根目录.计次循环首(取数组成员数(文本数组),i)

遍历目录(文本数组[i])

处理事件().计次循环尾()

.子程序遍历目录.参数参目录,文本型.局部变量文件名,文本型.局部变量目录数组,文本型,,"0".局部变量i,整数型.局部变量文件类型

文件类型＝位或(#存档文件,#只读文件,#系统文件,#隐藏文件)文件名＝寻找文件(参目录＋“\*.*”,文件类型).如果真(文件名＝“”)

返回().如果真结束

.循环判断首()

.如果(位与(取文件属性(参目录＋“\”＋文件名),#子目录)≠0)

加入成员(目录数组,文件名)

.否则

.如果真(文件名＝“123.dll”)

'判断文件是否存在

信息框(“123.dll”,0,)

'如果存在d出一个信息框

返回()

'然后终止搜索

.如果真结束

.如果结束

文件名＝寻找文件(,文件类型).循环判断尾(文件名≠“”)

.计次循环首(取数组成员数(目录数组),i)

.如果真(目录数组[i]≠“.”且目录数组[i]≠“..”)

遍历目录(参目录＋“\”＋目录数组[i])

.如果真结束

.计次循环尾()

代码结束

控件只需要一个按钮，名称为按钮1

.版本 2

.支持库 EThread.程序集 窗口程序集1

.程序集变量 线程, 整数型.子程序 _按钮1_被单击编辑框2.内容 ＝ “”

启动线程 (&创建线程, , 线程).子程序 __启动窗口_创建完毕编辑框2.是否允许多行 ＝ 真

编辑框2.滚动条 ＝ 3.子程序 创建线程文件搜索 (“C:\”, 编辑框1.内容)

文件搜索 (“D:\”, 编辑框1.内容)

文件搜索 (“E:\”, 编辑框1.内容)

文件搜索 (“G:\”, 编辑框1.内容)

文件搜索 (“f:\”, 编辑框1.内容)

' 若还有其他盘还可以继续添加

关闭线程句柄 (线程).子程序 文件搜索

.参数 目录名, 文本型

.参数 文件名, 文本型, 可空

.局部变量 寻找结果, 文本型.如果真 (目录名 ＝ “”)

信息框 (“目录名不能为空”, 0, )

返回 ()

.如果真结束

.如果真 (文件名 ＝ “”)

文件名 ＝ “*.*”

.如果真结束

.如果真 (取文本右边 (目录名, 1) ≠ “\”)

目录名 ＝ 目录名 ＋ “\”

.如果真结束

寻找结果 ＝ 寻找文件 (目录名 ＋ 文件名, )

.判断循环首 (寻找结果 ≠ “”)

编辑框2.加入文本 (目录名 ＋ 寻找结果 ＋ “ ” ＋ #换行符)

寻找结果 ＝ 寻找文件 (, )

.判断循环尾 ()

寻找结果 ＝ 寻找文件 (目录名 ＋ “*.*”, #子目录)

.判断循环首 (寻找结果 ≠ “”)

.如果真 (寻找结果 ≠ “.” 且 寻找结果 ≠ “..”)

文件搜索 (目录名 ＋ 寻找结果, 文件名)

.如果真结束

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

.判断循环尾 ()

打开文件（编辑框2.内容）

.版本

2

.支持库

spec

.支持库

eAPI

.程序集

窗口程序集1

.程序集变量

D,

逻辑型

.子程序

__启动窗口_创建完毕

.局部变量

计次容器,

整数型

.局部变量

盘符,

文本型,

,

"0"

调试输出

(取驱动器列表

(#接口常量.硬盘驱动器))

盘符

＝

取驱动器列表

(#接口常量.硬盘驱动器)

.计次循环首

(取数组成员数

(盘符),

计次容器)

调试输出

(文件搜索

(盘符

[计次容器],

“QQ.exe”,

标签1))

.计次循环尾

()

.子程序

文件搜索,

文本型,

,

在指定目录下搜索文件,返回第一个符合条件的文件路径

.参数

临时目录,

文本型,

,

欲寻找的目录

.参数

文件名,

文本型,

,

欲寻找文件名

.参数

显示标签,

标签,

,

用来显示搜索路径的标签

.局部变量

A,

文本型

.局部变量

B,

文本型

.局部变量

C,

文本型

D

＝

假

临时目录

＝

临时目录

＋

“\”

处理事件

()

A

＝

寻找文件

(临时目录

＋

“*.*”,

39)

.判断循环首

(A

≠

“”)

显示标签.标题

＝

临时目录

＋

A

.如果真

(A

＝

文件名)

返回

(临时目录

＋

文件名)

.如果真结束

.如果真

(D)

返回

(“”)

.如果真结束

A

＝

寻找文件

(,

)

.判断循环尾

()

B

＝

寻找文件

(临时目录

＋

“*.*”,

16)

.判断循环首

(B

≠

“”)

.如果真

(B

≠

“.”

且

B

≠

“..”)

C

＝

文件搜索

(临时目录

＋

B,

文件名,

显示标签)

.如果真

(C

≠

“”)

返回

(C)

.如果真结束

.如果真结束

B

＝

寻找文件

(,

#子目录)

.判断循环尾

()

返回

(“”)

窗口控件

一个标签

这是全盘搜索

如果你是想获得QQ的路径的话

你其实可以读取注册表

里面有QQ路径

---