今天小编给大家带来易语言文件查找教程，感兴趣的小伙伴们随小编一起看看吧。希望对你有所帮助。
方法/步骤
- 1
.支持库 EThread.程序集 窗口程序集1.程序集变量 线程, 整数型.子程序 _按钮1_被单击编辑框2.内容 ＝ “”启动线程 (&创建线程, , 线程).子程序 __启动窗口_创建完毕编辑框2.是否允许多行 ＝ 真
- 2
编辑框2.滚动条 ＝ 3.子程序 创建线程文件搜索 (“C:\”, 编辑框1.内容)文件搜索 (“D:\”, 编辑框1.内容)文件搜索 (“E:\”, 编辑框1.内容)文件搜索 (“G:\”, 编辑框1.内容)文件搜索 (“f:\”, 编辑框1.内容)
- 3
' 若还有其他盘还可以继续添加关闭线程句柄 (线程).子程序 文件搜索.参数 目录名, 文本型.参数 文件名, 文本型, 可空.局部变量 寻找结果, 文本型.如果真 (目录名 ＝ “”)
- 4
信息框 (“目录名不能为空”, 0, ) 返回 ().如果真结束.如果真 (文件名 ＝ “”) 文件名 ＝ “*.*”.如果真结束.如果真 (取文本右边 (目录名, 1) ≠ “\”)
- 5
目录名 ＝ 目录名 ＋ “\”.如果真结束寻找结果 ＝ 寻找文件 (目录名 ＋ 文件名, ).判断循环首 (寻找结果 ≠ “”) 编辑框2.加入文本 (目录名 ＋ 寻找结果 ＋ “ ” ＋ #换行符) 寻找结果 ＝ 寻找文件 (, )
- 6
.判断循环尾 ()寻找结果 ＝ 寻找文件 (目录名 ＋ “*.*”, #子目录).判断循环首 (寻找结果 ≠ “”) .如果真 (寻找结果 ≠ “.” 且 寻找结果 ≠ “..”) 文件搜索 (目录名 ＋ 寻找结果, 文件名) .如果真结束 寻找结果 ＝ 寻找文件 (, #子目录).判断循环尾 ()打开文件（编辑框2.内容）
END