易语言怎样显示指定目录内所有的文件和文件夹？

.版本 2
.支持库 iext

.子程序 目录文件夹
.局部变量 link, 文本型
.局部变量 link1, 文本型
.局部变量 目录, 文本型

超级列表框1.全部删除 ()
目录 ＝ 驱动器框1.驱动器 ＋ “:\*”
link ＝ 寻找文件 (目录, #子目录)
.判断循环首 (link ≠ “”)
.如果真 (link ≠ “.” 且 link ≠ “..”)
超级列表框1.插入表项 (, link, 0, , , )
.如果真结束

link ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
link1 ＝ 寻找文件 (目录, #子目录)
.判断循环首 (link1 ≠ “”)
.如果真 (link1 ≠ “.” 且 link1 ≠ “..”)
超级列表框1.插入表项 (, link1, 1, , , )
.如果真结束

link1 ＝ 寻找文件 (, )
.判断循环尾 ()

.子程序 _驱动器框1_驱动器被改变

目录文件夹 ()

---------------------------------
组件2个 超级列表框+驱动器

源码粘贴进去就OK