易语言全盘查找指定文件并返回地址,类似于全盘扫描文件,可以学习一下
文章源自楠竹林-https://www.nanzl.com/archives/712
.版本 2 .支持库 iext .子程序 列表, , , ***寻找目录下的所有子目录** .参数 路径, 文本型 .参数 查找的文件, 文本型, , 如果模糊查找输入关键词即可 .局部变量 子目录, 文本型 .局部变量 文件名, 文本型 子目录 = 寻找文件 (路径 + “*.*”, #子目录) .判断循环首 (子目录 ≠ “” 且 找到 = 假) .如果真 (取文本左边 (子目录, 1) ≠ “.”) .如果真 (文件是否存在 (路径 + 子目录 + “\” + 查找的文件)) 编辑框2.加入文本 (路径 + 子目录 + “\” + 查找的文件) 找到 = 真 ' 本来用跳出循环(),nnd居然跳不出循环才用这招 到循环尾 () .如果真结束 列表 (路径 + 子目录 + “\”, 编辑框1.内容) 状态条1.置文本 (0, 路径 + 子目录) .如果真结束 子目录 = 寻找文件 (, #子目录) .判断循环尾 () .如果真 (找到) 状态条1.置文本 (0, “文件已找到!”) 返回 () .如果真结束 状态条1.置文本 (0, “没有找到文件!”)
评论