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

比如说C盘根目录下所有的文件和文件夹、该怎么显示到超级列表框中?
要显示成如图所示的样子……求破了……

让它能够双击打开查看……内容。

第1个回答  2013-11-22
.版本 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本回答被提问者采纳
第2个回答  2013-11-22
加一个通用对话框就OK了