求解

蓝冰点点

怎么使自己做的音乐播放器


一键扫描指定的硬盘中MP3后缀文件，并加载列表

变味

.版本 2
.支持库 shell
.支持库 iext

.子程序 _超级按钮4_被单击
.局部变量 文件夹, 文本型

文件夹 ＝ 浏览文件夹 (“请选择文件夹,搜索MP3”, 假)
.如果真 (文件夹 ＝ “”)
    返回 ()
.如果真结束
添加MP3文件 (文件夹)
列表框1.获取焦点 ()
时钟2.时钟周期 ＝ 100
时钟3.时钟周期 ＝ 100

.子程序 添加MP3文件
.参数 搜索目录, 文本型
.局部变量 文件名, 文本型
.局部变量 子目录, 文本型


.如果真 (取文本右边 (搜索目录, 1) ≠ “\”)
    搜索目录 ＝ 搜索目录 ＋ “\”
.如果真结束

文件名 ＝ 寻找文件 (搜索目录 ＋ “*.mp3”, 39)
.判断循环首 (文件名 ≠ “”)
    处理事件 ()
    .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
        列表框1.插入表项 (, 文件名, , , , )
        列表框1.置标题 (列表框1.取表项数 () － 1, 1, 搜索目录 ＋ 文件名)
    .如果真结束
    文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
子目录 ＝ 寻找文件 (搜索目录 ＋ “*.*”, #子目录)
.判断循环首 (子目录 ≠ “”)
    .如果真 (子目录 ≠ “.” 且 子目录 ≠ “..”)
        处理事件 ()
        添加MP3文件 (搜索目录 ＋ 子目录)
    .如果真结束
    子目录 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()

蓝冰点点

我试一下，看起来很复杂{:3_226:}