高分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 As String

n = 0

f = Dir(p & "*.avi")

Do While f <> ""

ReDim Preserve filenames(n)

filenames(n) = f

f = Dir

n = n + 1

Loop

Set sPlaylist = WindowsMediaPlayer1.playlistCollection.newPlaylist("avi") '建立新播放列表avi

WindowsMediaPlayer1.currentPlaylist = sPlaylist

For i = 0 To n - 1

Set sMedia = WindowsMediaPlayer1.mediaCollection.Add(p & filenames(i)) '將文件加入到播放列表中

WindowsMediaPlayer1.currentPlaylist.insertItem (WindowsMediaPlayer1.currentPlaylist.Count), sMedia '添加播放列表項

Next

WindowsMediaPlayer1.Controls.play '開始播放

End Sub

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)

If NewState = 10 Then b = b + 1 '當播放狀態為準備就緒的判斷方法

If b = 2 Then MsgBox "播放結束"

End Sub