vbWindowsMediaPlayer

来源：百度知道编辑：UC知道时间：2024/09/23 22:38:05

求一个WindowsMediaPlayer播放器代码。
功能：一曲播放完了，用dir找到下一首歌，然后播放这首歌，如此循环……（我的一个文件夹有上千首歌，所以用到dir）
这个功能是要自动的，不是手动的。这样它就可以吧我的文件夹下的所有歌曲都播放完了。

手动下一曲。。
文件路径修改D:\KuGoo

-------------------
Private Sub Command1_Click()' 下一曲
On Error GoTo err
err: If err.Number <> 0 Then Dir ("D:\KuGoo\*.mp3")'文件路径
WindowsMediaPlayer1.URL = "D:\KuGoo\" & Dir() '文件路径

End Sub