windows media player

[candy1]

سلام دوستان
من 1 سورس 1 برنامه می خوام که 1 list box داشته باشه و 1 درایو لیست باکس که اسامی فایل ها رو نشون بده و با انتخاب 1 فایل با پسوند avi ان رو نمایش بده با windows media player
ممنونم

[parselearn]

درایو لیست باکس که اسامی فایل ها رو نشون بده


DriveListBox درايوهاي هارد شما رو نمايش ميده



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

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

Private Sub File1_Click()
WindowsMediaPlayer1.URL = File1.Path + "\" + File1.FileName
End Sub