易语言添加文件夹里的所有内容到列表框

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 ID, 整数型
.局部变量 文件夹信息, 文件夹信息_
.局部变量 MP3路径, 文本型
.局部变量 路径, 文本型
.局部变量 索引, 整数型
.局部变量 音乐路径, 文本型, , "0"
.局部变量 计次, 整数型

路径 ＝ 取空白文本 (255)
ID ＝ 浏览文件夹对话框_ (文件夹信息)
从列表id取路径_ (ID, 路径)
文件框1.目录 ＝ 路径
MP3路径 ＝ 寻找文件 (路径 ＋ “\*.mp3”, )
.判断循环首 (MP3路径 ≠ “”)
输出调试文本 (MP3路径)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 路径 ＋ “\” ＋ MP3路径)
MP3路告物径 ＝ 寻找文件 (, )
.判断循环尾 ()
.计次循环首 (超级列表框1.取表项数 (), 计次)
加入成员 (音乐路径, 超级列表框1.取标题 (计次 － 1, 0))
.计次循环尾 ()
播放MP3 (, 音乐路径)

.版本 2

.DLL命令 从列表id取路径_, 整数型, "袜岩液shell32.dll", "SHGetPathFromIDListA", , ,
.参数 结构指针, 整数型, , pIdl
.参数 路径, 文本型, 传址, pszPath

.DLL命令 浏览文件夹对话框_, 整数型, "shell32.dll", "SHBrowseForFolderA", , ,
.参数 浏览文件夹结构, 文件夹信息_
.版本 2

.数据类型 文件夹信息_, , , BROWSEINFO
.成员 窗口句柄, 整数型, , , hOwner
.成员 根目录, 整数型, , , pidlRoot
.成员 显示名称, 文本型, , , pszDisplayName
.成员 标题, 文本型, , , lpszTitle
.成员 标志, 整数型, , , ulFlags
.成员 回调函数地址, 整数型, , , lpfn
.成员 回调函数参数, 整数型, , , lParam
.成员 图像索引, 整数型, , , iImage

列表框也是一样的,你换过来不枣拍就成了,文件筐1.目录报错是因为你没有添加该组件,请在设计窗口上拖出该组件

多文件对话框汪贺可以解决你的问题

如果需要代码请或陵罩百度衫闹联系我，HI账号：jeeren

你和我的问题一样 要写配置项 。