如何让 windows media player 控件播放dirlestbox里选择媒体文件?

说实话,我不明白你说的dirlestbox是什么东西
是list还是dir 等等之类的呢?

但是想播放的话主要是个路径的问题,
只要能找到路径,赋值给变量就OK了

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

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

Private Sub File1_DblClick()
'播放双击的文件
WindowsMediaPlayer1.URL = Dir1.Path & "\" & File1.FileName
End Sub