Drive, Dir, File Boxen

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
 
jo danke ! ich freue mich so das es klappt!
voll nett von dir das du auch rum gegoogelt hast echt n1 von dir!

Gruss Michael


haste ICQ
 
Zurück