Question

易语言寻找文件到超级列表框！

我想寻找指定文件夹下（包含子目录）*.txt，显示到下面的超级列表框里面
请附上源码，谢谢！

Answer 1

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

.子程序 __启动窗口_创建完毕
.局部变量 文件目录, 文本型

文件目录 ＝ 浏览文件夹 (“请选择目录:”, 假)
.如果真 (文件目录 ≠ “”)
搜寻 (文件目录)
.如果真结束

.子程序 搜寻
.参数 目录, 文本型
.局部变量 文件名, 文本型
.局部变量 记录, 整数型

.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “*.txt”, )
.判断循环首 (文件名 ≠ “”)
记录 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (记录, 0, 目录)
超级列表框1.置标题 (记录, 1, 文件名)
超级列表框1.置标题 (记录, 2, 到文本 (取文件尺寸 (目录 ＋ 文件名)))
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
搜寻 (目录 ＋ 文件名)
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()