首先，需要Drive1、File1、Dir1和WindowsMediaPlayer1。

那么WindowsMediaPlayer在哪里？

1、对左侧工具栏右键，找到部件。

2、在对话框中，下拉，找到WindowsMediaPlayer，如图：

接下来，输入代码：

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_DblClick()
Dim tmpF As String
tmpF = File1.Path
If Right(tmpF, 1) <> “\” Then tmpF = tmpF & “\”
tmpF = tmpF & File1.List(File1.ListIndex)
WindowsMediaPlayer1.URL = tmpF
WindowsMediaPlayer1.Controls.play
Label1 = tmpF


End Sub

Private Sub Form_Load()
File1.Pattern = “*.mp4”

End Sub

备注：此代码仅支持MP4文件，如需改变，请在 File1.Pattern = “*.mp4” 中修改 “*.mp4″中的后缀名。无法拨放音频。

亲测可用。