易语言基础——树形框组件展示遍历某个目录

1.实现效果

2.源码

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

.程序集 窗口程序集_启动窗口
.程序集变量 程序集_文件时间, 日期时间型, , "0"
.程序集变量 程序集_文件尺寸, 文本型, , "0"
.程序集变量 程序集_文件名, 文本型, , "0"

.子程序 _按钮_浏览_被单击

编辑框_目录.内容 ＝ 浏览文件夹 (“选择一个要遍历的目录”, )


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

树型框1.清空 ()

子程序_查找文件 (编辑框_目录.内容, -1)


.子程序 子程序_查找文件
.参数 待查找的目录, 文本型
.参数 父索引, 整数型, 可空
.局部变量 找到的文件名, 文本型
.局部变量 子程序_当前索引, 整数型
.局部变量 分割出来的文本数组, 文本型, , "0"
.局部变量 参数_查找目录, 文本型

.如果真 (待查找的目录 ＝ “”)
    返回 ()
.如果真结束

.如果真 (取文本右边 (待查找的目录, 1) ≠ “\”)
    待查找的目录