易语言文件查找 – 树形框/浏览文件夹/状态栏演示

文件查找演示程序写到这里完善的也就差不多了，这里主要是演示了树型框/状态栏，以及浏览文件夹命令的使用

文章源自楠竹林-https://www.nanzl.com/archives/555

.版本 2
.支持库 iext
.支持库 shell
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 程集_目录, 文本型

.子程序 _按钮_查找_被单击

' 该源码例程来自亦行（yx）博客，由yx编写发布。如有转载请注明来源www.yxblog.cn
树型框_目录结构.清空 ()
.判断开始 (按钮_查找.标题 ＝ “查找目录”)
    编辑框_查找目录.内容 ＝ 浏览文件夹 (“易语言”, 假)
    按钮_查找.标题 ＝ “开始查找”
.判断 (按钮_查找.标题 ＝ “开始查找”)
    程序_文件查找 (编辑框_查找目录.内容, )
.默认

.判断结束


.子程序 程序_文件查找
.参数 查找目录, 文本型, 可空
.参数 父项目索引, 整数型, 可空
.局部变量 文件名, 文本型
.局部变量 临时_项目索引, 整数型

.如果真 (是否为空 (查找目录) ＝ 真)
    查找目录 ＝ “C:\Windows\”
.如果真结束
.如果真 (取文本右边 (查找目录, 1) ≠ “\”)
    查找目录 ＝ 查找目录 ＋ “\”
.如果真结束
.如果真 (是否为空 (父项目索引) ＝ 真)  ' 目的是为了检查是否传入树形框父项目索引
    父项目索引 ＝ -1
.如果真结束

程集_目录 ＝ 查找目录
文件名 ＝ 寻找文件 (查找目录 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
状态条1.置文本 (0, “查找进程：” ＋ 查找目录 ＋ 文件名)
' 调试输出 (“查找进程：” ＋ 查找目录 ＋ 文件名)
.判断循环首 (文件名 ≠ “”)

    .如果真 (文件名 ＝ “.” 或 文件名 ＝ “..”)
        文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
        到循环尾 ()
    .如果真结束

    临时_项目索引 ＝ 树型框_目录结构.加入项目 (父项目索引, 文件名, , , , , )  ' 注明：临时项目索引记录

    .如果真 (取文件属性 (查找目录 ＋ 文件名) ＝ #子目录)
        程序_文件查找 (查找目录 ＋ 文件名, 临时_项目索引)
        文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
        到循环尾 ()
    .如果真结束

    文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
    处理事件 ()
.判断循环尾 ()
状态条1.置文本 (0, “查找进程：” ＋ “查找完毕”)

.子程序 _树型框_目录结构_项目被选择
.参数 选择方式, 整数型
.局部变量 临时目录索引, 整数型
.局部变量 临时目录, 文本型
.局部变量 文件名, 文本型

临时目录索引 ＝ 树型框_目录结构.取父项目 (树型框_目录结构.现行选中项)
临时目录 ＝ 编辑框_查找目录.内容 ＋ “\” ＋ 树型框_目录结构.取项目文本 (临时目录索引)
' 调试输出 (到文本 (临时目录索引) ＋ #换行符 ＋ 临时目录)
.如果真 (临时目录索引 ＝ -1)
    临时目录索引 ＝ 树型框_目录结构.现行选中项
    临时目录 ＝ 编辑框_查找目录.内容 ＋ “\” ＋ 树型框_目录结构.取项目文本 (临时目录索引)
.如果真结束

' 调试输出 (到文本 (临时目录索引) ＋ #换行符 ＋ 临时目录)

编辑框_信息显示.内容 ＝ “”
.如果真 (选择方式 ＝ 1)
    文件名 ＝ “\” ＋ 树型框_目录结构.取项目文本 (树型框_目录结构.现行选中项)
    调试输出 (临时目录 ＋ 文件名)
    编辑框_信息显示.加入文本 (“名称：” ＋ 树型框_目录结构.取项目文本 (树型框_目录结构.现行选中项), #换行符, “时间：” ＋ 到文本 (取文件时间 (临时目录 ＋ 文件名)), #换行符, “尺寸：” ＋ 到文本 (四舍五入 (取文件尺寸 (临时目录 ＋ 文件名) ÷ 1024, 2)), #换行符)
.如果真结束