易语言批量导入音乐文件

取运行目录 11文件夹下的所有音乐文件 。并将音乐的名字 命名到按钮上 给个源码 谢谢！

.版本 2

.程序集 窗口程序集1
.程序集变量 计次变量, 整数型
.程序集变量 文件号, 整数型

.子程序 _添加按钮_被单击
.局部变量 文本组变量, 文本型, , "0"
.局部变量 计次变量1, 整数型

文本组变量 ＝ 多文件对话框 (“添加MP3文件”, “mp3文件（\*.mp3)｜*.mp3”, , , )
.如果真 (取数组成员数 (文本组变量) ＝ 0)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (文本组变量), 计次变量)
.计次循环首 (播放列表框.取项目数 (), 计次变量1)
.如果真 (播放列表框.取项目文本 (计次变量1 － 1) ＝ 文本组变量 [计次变量])
播放列表框.删除项目 (计次变量1 － 1)
跳出循环 ()
.如果真结束

.计次循环尾 ()
播放列表框.加入项目 (文本组变量 [计次变量], )

.计次循环尾 ()

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息