易语言 怎么寻找所有文件

首先要枚举出硬盘分区根目录，然后逐个根目录进行寻找文件，最后如果找到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.内容）

---