Question

怎么做易语言做文件导入超级列表框

就是把一个文件夹里装有M P 3文件导入超级列表框里，不要用模块，谢谢。





Answer 1

.版本 2
.支持库 shell
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 文件夹路径, 文本型
.局部变量 文件名称, 文本型
.局部变量 文件成员, 文本型, , "0"
.局部变量 n, 整数型
文件夹路径 ＝ 浏览文件夹 (“选择文件夹”, )
文件名称 ＝ 寻找文件 (文件夹路径 ＋ “\*.mp3”, )
.判断循环首 (文件名称 ≠ “”)
加入成员 (文件成员, 文件名称)
文件名称 ＝ 寻找文件 (, )
.判断循环尾 ()
.计次循环首 (取数组成员数 (文件成员), n)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (n － 1, 0, 文件成员 [n])
超级列表框1.置标题 (n － 1, 1, 文件夹路径 ＋ “\” ＋ 文件成员 [n])
.计次循环尾 ()