From MediaMonkey Wiki
Jump to navigation Jump to search

CoClass SDBApplication, Interface ISDBApplication

Property Get PlaylistByTitle(Title As String) As ISDBPlaylist


Name Type Description
Title String Name of the playlist to get (use empty string to get root of all playlists)

Property description

Retrieves SDBPlaylist object of the given playlist name. If multiple playlists with the same name exist, PlaylistByTitle returns the first one it finds in the database.

Call method with empty string as the argument to get the (virtual) root playlist node. Then you can use its ChildPlaylists property to get all the first-level playlists.

WARNING: Also if no playlist with the specified Title exists, the (virtual) root playlist will be returned. Be aware of this fact, especially if you are planning to remove a playlist. Making an error could remove the root, and so all playlists.

Example code

' Safe PlaylistByTitle wrapper - returns Nothing when playlist with given Title is not found
Sub SafePlaylistByTitle(Title)
  Dim RootList : Set RootList = SDB.PlaylistByTitle("") ' Get root node
  SafePlaylistByTitle = SDB.PlaylistByTitle(Title) ' Get playlist by Title
  If SafePlaylistByTitle Is RootList Then
    SafePlaylistByTitle = Nothing ' Do not return playlist when nothing was found
  End If
End Sub

Example for playlist nodes iteration:

Dim Playlist : Set Playlist = SDB.PlaylistByTitle("")   ' Playlist represents the root (virtual) playlist
Dim List : Set List = Playlist.ChildPlaylists           ' List represents a list of all first-level playlists

Dim i, itm

For i = 0 To List.Count - 1                             ' For all (first-level) playlists in List...
  Set itm = List.Item(i)                                ' ... print out the number of child playlists and tracks
  fout.WriteLine itm.Title & " (" & CStr(itm.ChildPlaylists.Count) & "/" & CStr(itm.Tracks.Count) & ")"

' in this case, fout represents a TextStream object (not shown here)

Related Topics