简介：本文介绍了用VB6编写一个小程序。让程序根据每个文件夹下的mp3、wma的文件名称来自动生成播放列表。

　　很多朋友都是按照专辑名称来分文件夹保存mp3文件，即同一张专辑的mp3存在一个的目录下。但是随着收藏的音乐专辑越来越多，我们很希望把每张专辑的mp3分别制成一个播放列表，方便欣赏音乐。可是，这种专门的软件很少，而且大多不是免费的。其实我们可以用VB6来轻松实现这一功能。

　　现在流行的播放列表文件格式有.m3u，.pls，.asx等，这里只探讨这三种播放列表的自动生成办法。

　　一、实现原理

　　1、用记事本打开一个非空的m3u播放列表文件，形如下面的格式

　　File0=第一个mp3文件的路径

　　File1=第二个mp3文件的路径

　　…………

　　这样，可以用vb6的open、print等命令写入文件，做成播放器能够识别的.m3u格式的文件。同理，经过VB6的字符串处理后可以生成播放器能够识别的.pls和.asx文件。

　　2、利用vb6的FSO对象，实现对子目录的遍历（本文只遍历一层子目录）

　　3、利用字符串处理函数完成对非MP3、WMA文件的过滤

　　二、窗体设计

　　本程序需要使用一个Label、一个TextBox文本框、三个Command按钮，布局好的窗体见图1。点击Command1就可以生成.pls格式的列表，点击Command2可以生成asx格式的播放列表，而点击Command3会生成m3u格式的列表。


图1

　　TextBox让用户输入mp3专辑目录的路径。

　　注：以本程序为例mp3专辑目录的路径为D:testalbumlist，在“albumlist”目录下，每张专辑占用一个目录，如“album1”目录下为music1.mp3，music2.mp3……在你的电脑上运行本程序时，需要按照类似的目录结构在text框中输入目录结构。