Reproducir PlayList Hola a tod@s!
Quiero reproducir listas de reproducción que tengo guardadas en el disco duro mediante en control Windows Media Player de Visual Basic 6.0, para ello utilizo los objetos IWMPPlaylist, IWMPPlaylistArray, IWMPMediaCollection y IWMPMedia, pero cuando abro la lista de reproducción lo que hago es crear una idéntica en el disco duro. Cómo puedo abrir y reproducir la que ya tengo?
El código que utilizo es el siguiente:
Dim FilePath As String
Dim i As Integer
i = 0
Do Until Form4.File1.Selected(i)
i = i + 1
Loop
FilePath = Form4.File1.path + "\" + Form4.File1.List(i)
Dim PlayList As IWMPPlaylist
Dim PlayListArray As IWMPPlaylistArray
Dim MediaCollection As IWMPMediaCollection
Dim Media As IWMPMedia
Set PlayListArray = Form1.WindowsMediaPlayer1.PlayListCollection.getBy Name(FilePath)
If PlayListArray.Count = 0 Then
Set PlayList = Form1.WindowsMediaPlayer1.newPlaylist(Form4.File1. List(i), FilePath)
Else
Set PlayList = PlayListArray.Item(0)
End If
If PlayList.Count = 0 Then
MsgBox "La lista está vacia"
Else:
Set PlayList = Form1.WindowsMediaPlayer1.PlayListCollection.impor tPlaylist(PlayList)
Form1.WindowsMediaPlayer1.currentPlaylist = Form1.WindowsMediaPlayer1.MediaCollection.getByNam e(Form4.File1.List(i))
Set MediaCollection = Form1.WindowsMediaPlayer1.MediaCollection
For i = 0 To PlayList.Count - 1
Set Media = MediaCollection.Add(GetSpecialfolder(CSIDL_PERSONA L) + "\mi música\my playlists\" + PlayList.Item(i).Name + ".mp3")
PlayList.appendItem Media
MediaCollection.Remove Media, False
Next i
Form1.WindowsMediaPlayer1.currentPlaylist = PlayList
Set PlayList = Nothing
Set MediaCollection = Nothing
Set Media = Nothing
Form1.WindowsMediaPlayer1.Controls.play
Form3.Show
End If
Ya sé dónde es exáctamente dónde creo, y duplico la lista, pero no consigo reproducirla de otra manera. La función "importPlaylist" ella sola no me funciona. Alguien puede echarme una mano?
