利用VB制作MP3播放列表 (转自eNet)

作者：meteor
email: xxzxly@
日期：8/24/2001 1:39:41 PM
RealPlayer是一款很好也是很常用的播放软件，但它不直接支持MP3的连续播放。

因此，我决定用VB编一个程序，它能搜索整个硬盘中的MP3文件，自动为RealPlayer制作播放列表。

界面设计
启动VB，选择“工程→引用”菜单，在弹出的对话框中选择“Microsoft Scripting
Runtime” 以便引用FileSystemObject，再选择“工程→部件”，在弹出的对话框中选择
“Microsoft Common Dialog Control 6.0”和“Microsoft Rich Textbox Control 6.0”。

在窗体Form1上添加两个命令按钮Command1和Command2，它们的Caption属性分别设置为“开始”和“保存”；一个列表框控件List1，用来显示搜索到的MP3文件；一个组全框
控件Combo1，将其List属性设置为“C ＼”、“D ＼”、“E ＼”、“F ＼”、“G ＼”、“H ＼”等；再加入三个标签控件：Label1、Label2和Label3，将RichTextBx1的名称设
置为“Text1”，Multiline属性设置为True(运行结果如图所示)。

源程序
接着输入以下代码：
Private Sub Command1＿Click
Dim fs As New FileSystemObject＇建立FileSystemObject
Dim fd As Folder＇定义Folder对象
Dim sfd As Folder
Set fd＝fs.GetFolder Combo1.Text
Command1.Enabled＝False
Screen.MousePointer＝vbHourglass
FindFile fd ″ .mp3″＇Text1.Text
Command1.Enabled＝True
Screen.MousePointer＝vbDefault
End Sub
＇以下过程实现查找指定分区下的所有MP3文件
Sub FindFile fd As Folder FileName As String
Dim sfd As Folder f As File
＇第一部分：查找该文件夹的所有文件
For Each f In fd.Files
Label2＝f.Path
If UCase Like UCase FileName Then
List1.AddItem f.Path
label3＝″共找到″＆List1.ListCount＆″首MP3文件″
End If
DoEvents
Next
＇第二部分：循环查找所有子文件夹
For Each sfd In fd.SubFolders
FindFile sfd FileName＇循环查找
Next
End Sub
＇保存按钮的源代码：
Private Sub Command2＿Click
CommonDialog1.Filter＝″realplay播放列表文件 .ram ｜ .ram″
CommonDialog1.ShowSave
For i＝0 To List1.ListCount - 1
text1.Text＝text1.Text＆″file ///″＆List1.List i ＆vbCrLf
Next
＇以下代码将文件名中的″＼″替换为″/″
Dim intCount As Integer
Dim lngPos As Long
Dim intOptions As Integer
＇设置初始信息
intCount＝0
lngPos＝0
With text1
Do
If text1.Find ″＼″ lngPos intOptions ＝-1 Then＇如果″＼″没找到
Exit Do
Else＇如果文件名中有″＼″，则换为″/″
lngPos＝text1.SelStart＋text1.SelLength
intCount＝intCount＋1＇设置计数器
text1.SelText＝″/″＇替换
End If
Loop
End With
＇将TEXT1的内容保存为一个文件
Open CommonDialog1.FileName For Output As＃1
Print＃1 text1.Text
Close#1
Msgbox“文件”&CommonDialogl.FileName&“已成功保存”，vbMsgBoxSet-Foreground，“提示”
End Sub
以上程序在Windows 98SE,Windows Me VB6.0中文企业版中运行通过。