高级文件搜索类模块

jixun66

主要是针对易语言核心支持库不支持嵌套枚举的支持增强..
代码调用演示：
[e].版本 2

.局部变量 寻找目录, 高级寻找文件类
.局部变量 寻找文件, 高级寻找文件类
.局部变量 目录名, 文本型
.局部变量 文件名, 文本型

寻找目录.初始化 (“C:\*”, #文件属性_子目录)
目录名 ＝ 寻找目录.寻找 ()

.判断循环首 (目录名 ≠ “”)
    输出调试文本 (“发现目录: ” ＋ 目录名)
    寻找文件.初始化 (“C:\” ＋ 目录名 ＋ “\*”)
    .循环判断首 ()
        文件名 ＝ 寻找文件.寻找 ()
        输出调试文本 (“发现文件: ” ＋ 文件名)
    .循环判断尾 (文件名 ≠ “”)
    目录名 ＝ 寻找目录.寻找 ()
.判断循环尾 ()
[/e]

[e].版本 2

.程序集 高级寻找文件类, , 公开

.子程序 设定_文件大小范围, , 公开, 如果一个参数都不填即可取消设定范围。
.参数 文件最小值, 整数型, 可空, 字节
.参数 文件最大值, 整数型, 可空, 字节
.参数 启用设定, 逻辑型, 可空, 如果为[假]或[空]则取消设定

.子程序 设定_文件类型, , 公开
.参数 文件类型, 整数型, 可空, #FILE_ATTRIBUTE_

.子程序 设定_过滤无效目录, , 公开
.参数 过滤无效目录, 逻辑型, 可空, 搜索目录时如果为 [.] 或 [..] 的时候是否忽略，默认为 [真]

.子程序 设定_搜寻路径, , 公开
.参数 欲搜索的路径, 文本型

.子程序 初始化, , 公开, 支持使用多字符 (*) 和单字符 (?) 通配符来指定多重文件。
.参数 欲搜索的路径, 文本型
.参数 文件类型, 整数型, 可空, [#FILE_ATTRIBUTE_] 或 [#文件属性_]
.参数 过滤无效目录, 逻辑型, 可空, 搜索目录时如果为 [.] 或 [..] 的时候是否忽略，默认为 [真]

.子程序 取搜索句柄, 整数型, 公开

.子程序 查询_文件大小范围, 型_uRange, 公开

.子程序 置搜索句柄, , 公开
.参数 新的句柄, 整数型
.参数 释放句柄, 逻辑型, 可空, 为真表示将在应用新的句柄前释放当前句柄。

.子程序 寻找, 文本型, 公开, 成功返回文件名，否则返回空文本。
.参数 重新搜索, 逻辑型, 可空, 如果为 [真] 则舍弃已有结果重新计算。
.参数 短文件名, 文本型, 参考 可空, 可忽略，DOS 8.3 文件名。
.参数 文件大小, 长整数型, 参考 可空, 可忽略，单位为字节。
.参数 文件时间, 型_文件时间信息, 参考 可空, 可忽略，用于提供文件的各种时间信息。
.参数 是否执行成功, 逻辑型, 参考 可空, 可忽略，用于提供是否执行成功。
.参数 dwReserved, 型_dwReserved, 参考 可空, 可忽略，两个回写用的返回值。

.子程序 释放, , 公开, 使用完毕后执行该方法释放资源[/e]

使用 API FindFirstFileA 以及 FindNextFileA 封装。
P.S. 虽然会在结束前自动释放，但还是建议在搜索完整个任务后手动释放。

模块_高级寻找文件类.rar (6.18 KB, 下载次数: 56)

2012-12-26 06:45 上传

点击文件名下载附件

原始世界

谢谢分享

小布仕奇

6666666666666666666666

网络注册络员

速度，主要是速度

sxlldaj

谢谢楼主分享

噢噢

谢谢楼主分享

qq2010108288

路过顺便支持

小痴来学语言

谢谢老师! 我正好 学习 这些呢 求 老师指教

ddddww

为什么不能下载？

百聊

怎么下载啊?