需要一个超级列表框 一个按钮
==================================================================
.版本 2
.支持库 iext
.支持库 shell
.子程序 __启动窗口_创建完毕
超级列表框1.插入列 (0, “MP3文件”, 100, , , )
超级列表框1.插入列 (0, “文件地址”, 150, , , )
按钮1.标题 = “读入文件”
.子程序 _按钮1_被单击
.局部变量 寻, 文本型
.局部变量 目录, 文本型
目录 = 浏览文件夹 (“请选择MP3文件目录”, )
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.如果真结束
寻 = 寻找文件 (目录 + “*.mp3”, #存档文件)
.判断循环首 (寻 ≠ “”)
.如果真 (寻 ≠ “.” 且 寻 ≠ “..”)
超级列表框1.插入表项 (0, 寻, , , , )
超级列表框1.置标题 (0, 1, 目录 + 寻)
.如果真结束
寻 = 寻找文件 (, #存档文件)
.判断循环尾 ()
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
播放MP3 (1, 超级列表框1.取标题 (超级列表框1.现行选中项, 1))
应该是你程序的问题吧