如何写易语言整盘搜索的源码？

如题

.版本 2
.支持库 iext

.程序集 窗口程序集1
.程序集变量 找到, 逻辑型

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

.子程序 列表, , , ***寻找目录下的所有子目录**
.参数 路径, 文本型
.参数 查找的文件, 文本型, , 如果模糊查找输入关键词即可
.局部变量 子目录, 文本型
.局部变量 文件名, 文本型
.局部变量 表项索引, 整数型

子目录 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录)
.判断循环首 (子目录 ≠ “”)
.如果真 (取文本左边 (子目录, 1) ≠ “.”)
.如果真 (文件是否存在 (路径 ＋ 子目录 ＋ “\” ＋ 查找的文件))
' 编辑框2.加入文本 (路径 ＋ 子目录 ＋ “\” ＋ 查找的文件 ＋ #换行符)
表项索引 ＝ 超级列表框1.插入表项 (, 查找的文件, , , , )
超级列表框1.置标题 (表项索引, 1, 到文本 (取整 (取文件尺寸 (路径 ＋ 子目录 ＋ “\” ＋ 查找的文件) ÷ 1024)) ＋ “Kb”)
超级列表框1.置标题 (表项索引, 2, 路径 ＋ 子目录 ＋ “\” ＋ 查找的文件)
超级列表框1.置标题 (表项索引, 3, 到文本 (取文件时间 (路径 ＋ 子目录 ＋ “\” ＋ 查找的文件)))
.如果真结束
列表 (路径 ＋ 子目录 ＋ “\”, 编辑框1.内容)
状态条1.置文本 (0, 路径 ＋ 子目录)
.如果真结束
子目录 ＝ 寻找文件 (, #子目录)
.如果真 (超级列表框1.取表项数 () ≠ 0)
找到 ＝ 真
.如果真结束

.判断循环尾 ()
.如果真 (找到)
状态条1.置文本 (0, “文件已找到！共” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “个”)
返回 ()
.如果真结束
状态条1.置文本 (0, “没有找到文件！”)

.子程序 _按钮1_被单击
.局部变量 目录, 文本型
.局部变量 所有盘符, 字节集
.局部变量 盘符, 字节集, , "0"
.局部变量 返回值, 整数型
.局部变量 列表索引, 整数型
.局部变量 索引, 整数型
.局部变量 表项索引, 整数型

超级列表框1.全部删除 ()
.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请输入要查找的文件名（要包括后缀名）”, #错误图标, )
返回 ()
.如果真结束
置等待鼠标 ()
所有盘符 ＝ 取空白字节集 (256)
返回值 ＝ GetLogicalDriveStrings (256, 所有盘符)
所有盘符 ＝ 取字节集左边 (所有盘符, 返回值)
盘符 ＝ 分割字节集 (所有盘符, { 0 }, )
.计次循环首 (取数组成员数 (盘符), 索引)
.如果真 (文件是否存在 (到文本 (盘符 [索引]) ＋ 编辑框1.内容))
表项索引 ＝ 超级列表框1.插入表项 (, 编辑框1.内容, , , , )
超级列表框1.置标题 (表项索引, 1, 到文本 (取整 (取文件尺寸 (到文本 (盘符 [索引]) ＋ 编辑框1.内容) ÷ 1024)) ＋ “Kb”)
超级列表框1.置标题 (表项索引, 2, 到文本 (盘符 [索引]) ＋ 编辑框1.内容)
超级列表框1.置标题 (表项索引, 3, 到文本 (取文件时间 (到文本 (盘符 [索引]) ＋ 编辑框1.内容)))

' 编辑框2.加入文本 (到文本 (盘符 [索引]) ＋ 编辑框1.内容 ＋ #换行符)
状态条1.置文本 (0, “文件已找到！共” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “个”)
' 跳出循环 ()
.如果真结束
列表 (到文本 (盘符 [索引]), 编辑框1.内容)
.计次循环尾 ()
恢复鼠标 ()
找到 ＝ 假

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

结束 ()
==========================================

源码比较长，给你发送到邮箱，去邮箱看吧

楼上的朋友好猛，支持；

易语言4.14破解版(含190个全新支持库) http://www.3600gz.cn/viewthread.php?tid=1537 易语言免费入门视频观看地址： http://www.3600gz.cn/viewthread.php?tid=1201 有易语言问题请到这里提问，回答率百分之95以上： http://www.3600gz.cn/

使用 寻找文件 命令 详细的代码可以看易语言帮组文件

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息