Question

VB如何让WMP播放目录下的任意歌曲

请问下怎样让WINDOWS MEDIA PLAYER控件自动播放指定目录下的任意歌曲呢？随机选择的，希望各位前辈能指导小弟，最好给予源码，谢谢！

Answer 1

用filelistbox可以获取指定文件夹下的指定格式的所有文件的名称。你把这些路径赋值给一个数组song(i)，然后播放随机i值的这首歌就行了。

下边这段代码将在form上打印出这个文件夹下的所有的mp3和wma格式的歌曲的路径：

Private Sub Form_Load()
Dim a()
Form1.AutoRedraw = True
File1.Path = "F:\音乐\欧美金曲\"
File1.Pattern = "*.mp3;*.wma"
ReDim a(1 To File1.ListCount)
For i = 1 To File1.ListCount
a(i) = File1.Path & "\" & File1.List(i)
Print a(i)
Next
End Sub