[Resolved] Windows Media Player 9 ctl Add playlistitem

[Jason Badon]

Does any one know how to select a playlist and add an item to a playlist using the window media player 9 control.

Thanks for your time and help.

Jason

[Jason Badon]

Figured it out heres the results

Dim sPlaylist   As IWMPPlaylist
Dim sMedia      As IWMPMedia
Private Sub Form_Load()
    Set sPlaylist = WinMP.playlistCollection.newPlaylist("Audio")
    WinMP.currentPlaylist = sPlaylist 'selects playlist
    Set sMedia = WinMP.mediaCollection.Add("Y:\MP3\311\311 - 311 - Down.mp3") 'Sets Media to Add to Playlit
    List1.AddItem "Y:\MP3\311\311 - 311 - Down.mp3"
    WinMP.currentPlaylist.insertItem (WinMP.currentPlaylist.Count), sMedia ' Adds Playlist Item
    Set sMedia = WinMP.mediaCollection.Add("Y:\MP3\Aerosmith\Aerosmith - A Little South Of Sanity - Livin' On The Edge.mp3") 'Add Playlist Item'Sets Media to Add to Playlit
    List1.AddItem "Y:\MP3\Aerosmith\Aerosmith - A Little South Of Sanity - Livin' On The Edge.mp3"
    WinMP.currentPlaylist.insertItem (WinMP.currentPlaylist.Count), sMedia ' Adds Playlist Item
End Sub
 
Private Sub List1_Click()
Set sMedia = WinMP.currentPlaylist.Item(List1.ListIndex)
WinMP.Controls.playItem sMedia
End Sub