Media Browser using Visual Basic

‘*************FRMFIL******************
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

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

Private Sub File1_DblClick()
frmmed.Tag = File1.Path + “/” + File1.FileName
Load frmmed
frmmed.Show
Form1.Hide
End Sub

Private Sub Form_Activate()
Drive1.Drive = “c:\”
Call Drive1_Change
optmed.Value = True
File1.Pattern = “*.wma”
End Sub

Private Sub optall_Click()
optall.Value = True
File1.Pattern = “*.*”
End Sub

Private Sub optmed_Click()
optmed.Value = True
File1.Pattern = “*.wma”
End Sub

‘****************FRMMED**********************************
Private Sub Form_Activate()
wmp.URL = frmmed.Tag
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form1.Show
End Sub

 

Project Download