版本 2
.支持库 iext2
.支持库 iext
.局部变量 目录, 文本型
.局部变量 文件名, 文本型
.局部变量 图片号
.局部变量 后缀名, 文本型
.局部变量 局部图片组, 字节集
.局部变量 图片数, 整数型
.局部变量 文件类型, 文本型
.局部变量 图标地址, 文本型
.局部变量 分割文本, 文本型, , "0"
局部图片组 ＝ 建空图片组 (32, 32)
超级列表框1.全部删除 ()
目录 ＝ 取当前目录 () ＋ “\” ＋ 文件夹
目录 ＝ 选择 (取文本右边 (目录, 1) ≠ “\”, 目录 ＋ “\”, 目录)
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, )
.判断循环首 (文件名 ≠ “”)
图片号 ＝ 提取加入图片 (局部图片组, 目录 ＋ 文件名, ,
超级列表框1.插入表项 (, 文件名, 图片号, , , )
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
超级列表框1.图片组 ＝ 局部图片组
但是还是不行啊 有错？