【高分】VB中的Windowsmediaplayer控件，如何实现自动播放下一个视频文件

你看看这个代码： Dim b As Integer Private Sub Command1_Click() a = 0: b = 0 p = App.Path + "\data\" If Dir(p & "*.avi") = "" Then MsgBox "没有avi文件": Exit Sub Dim filenames() As String '读取目录下的avi文件 Dim f