Set list = SDB.PlaylistByTitle("") Set children = list.ChildPlaylists For i = 0 To children.count-1 If children.count=0 Then exit Sub Set itm = children.Item(i) PlaylistName = itm.Title Set tracks = itm.Tracks

if itm.tracks.count>0 then For z=0 To tracks.Count-1 Set trck = tracks.Item(z) PlaylistTitel = trck.Title & "__" & trck.ArtistName if quelle=PlaylistTitel then Verzeichnis=Verzeichnis & " " & PlaylistName & chr(13) VerzeichnisZahl=VerzeichnisZahl & "Nr.: " & z+1 & chr(13) end if Next end if Next if len(Verzeichnis)<1 then Verzeichnis="TITEL IST IN KEINER WIEDERGABELISTE VORHANDEN"