易语言c盘搜索文件,易语言遍历搜索目录指定文件

＋ “\” ＋ 文件名称)

.如果真结束

文件是否存在_遍历 (zs ＋ “\”, 文件名称)

.计次循环尾 ()

.如果真结束

返回 (结果)

.子程序 遍历搜索指定文件, 逻辑型, , 直接调用这个函数 即可对指定目录进行文件搜索 找到返回真 则 假

.参数 目录路径, 文本型

.参数 软件名称EXE, 文本型

结果 ＝ 假

进度条1.位置 ＝ 0

进度条1.最大位置 ＝ 0

返回 (文件是否存在_遍历 (目录路径, 软件名称EXE))

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

标题 ＝ “共执行次数：” ＋ 标题 ＋ “   结果：” ＋ 选择 (遍历搜索指定文件 (编辑框1.内容, 编辑框2.内容), “已找到！！！”, “未找到！！！”)

.子程序 目录_枚举子目录, 整数型, 公开, '首先说明一下 这个函数是精易模块里的 用模块不代表模块大王 请某些人不要过于偏激评论抨击萌新发帖的热情 谢谢  本人发帖只做技术探讨

.参数 父文件夹路径, 文本型, , 如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加

.参数 子目录数组, 文本型, 参考 可空 数组, 用来装载返回的子目录路径；

.参数 是否带路径, 逻辑型, 可空, 假=不带，真=带;

.局部变量 子目录名, 文本型

.局部变量 局_目录, 文本型

局_目录 ＝ 父文件夹路径

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

局_目录 ＝ 局_目录 ＋ “\”

.如果真结束

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

.判断循环首 (子目录名 ≠ “”)

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

.如果 (是否带路径 ＝ 假)

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

.否则

加入成员 (子目录数组, 局_目录 ＋ 子目录名)

.如果结束

.如果真结束

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

.判断循环尾 ()

返回 (取数组成员数 (子目录数组))