Hmmm...
Have you seen this topic? viewtopic.php?f=2&t=58959&hilit=send+to+playlist

WCityMike wrote:(Additionally, I must admit my sincere hope was to get something that I could assign to a keystroke ... and it doesn't show up in the "Script" area of the Hotkeys preference.)
WCityMike wrote:As far as I can tell, the "auto" script cited above does not work.
dim PlayList : Set PlayList = SDB.PlayListbyTitle("EyaL")Sub CopyToMyPlaylist
dim PlayList : Set PlayList = SDB.PlayListbyTitle("PLname")
playlist.addtrack(sdb.player.currentsong)
End Sub[CopytoPlayList]
Filename=Auto\CopytoPlayList.vbs
Procname=CopyToMyPlaylist
Order=10
DisplayName=Copy (currently playing) to Playlist
Description=Copy currently playing track to predifed playlist
Language=VBScript
ScriptType=0Onweerwolf wrote:So Eyal, could you help me out here in how to change the script so it doesn't send the currently playing song but the currently selected song (from the library) to the playlist instead?
Sub CopyToMyPlaylist
dim PlayList : Set PlayList = SDB.PlayListbyTitle("PLname")
Dim list, t : Set list = SDB.SelectedSongList
If list.Count=0 Then
t = SDB.MessageBox("No track(s) were selected.", mtInformation, Array(mbOK))
Else
PlayList.AddTracks(list)
End If
End SubEyal wrote:Onweerwolf wrote:So Eyal, could you help me out here in how to change the script so it doesn't send the currently playing song but the currently selected song (from the library) to the playlist instead?
Follow the "don't panic" steps above, but with the following CopyToMyPlaylist sub:
- Code: Select all
Sub CopyToMyPlaylist
dim PlayList : Set PlayList = SDB.PlayListbyTitle("PLname")
Dim list, t : Set list = SDB.SelectedSongList
If list.Count=0 Then
t = SDB.MessageBox("No track(s) were selected.", mtInformation, Array(mbOK))
Else
PlayList.AddTracks(list)
End If
End Sub
You can also change DisplayName and Description lines in the Script.ini section.
:~)
Users browsing this forum: No registered users and 13 guests