全盘搜索查找指定文件

@易语言学习论坛-近在眼前.版本 2

.支持库 iext

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

.局部变量 目录, 文本型

.局部变量 所有盘符, 字节集

.局部变量 盘符, 字节集, , "0"

.局部变量 返回值, 整数型

.局部变量 索引, 整数型

编辑框2.内容 ＝ “”

.如果真 (编辑框1.内容 ＝ “”)

信息框 (“请输入要查找的文件名(要包括后缀名)”, #错误图标, )

返回 ()

.如果真结束

置等待鼠标 ()

所有盘符 ＝ 取空白字节集 (256)

返回值 ＝ GetLogicalDriveStrings (256, 所有盘符)

所有盘符 ＝ 取字节集左边 (所有盘符, 返回值)

盘符 ＝ 分割字节集 (所有盘符, { 0 }, )

.计次循环首 (取数组成员数 (盘符), 索引)

.如果真 (文件是否存在 (到文本 (盘符 [索引]) ＋ 编辑框1.内容))

编辑框2.加入文本 (到文本 (盘符 [索引]) ＋ 编辑框1.内容)

状态条1.置文本 (0, “文件已找到！”)

跳出循环 ()

.如果真结束

列表 (到文本 (盘符 [索引]), 编辑框1.内容)

.计次循环尾 ()

恢复鼠标 ()

找到 ＝ 假

文件下载

解压密码：

来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)