wincnc
Erfahrenes Mitglied
Hallo, das hat mir natürlich keine Ruhe gelassen. Mit dem Windows Mediaplayer 9 gehts doch !
Code:
Private Sub File1_DblClick()
Dim Pfad As String
Pfad = File1.Path
If Not Right(Pfad, 1) = "\" Then Pfad = Pfad & "\"
Pfad = Pfad & File1.List(File1.ListIndex)
WindowsMediaPlayer1.URL = Pfad
WindowsMediaPlayer1.Controls.play
End Sub