Eyal 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.

:~)

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?

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

• Edit Mediamonkey\Scripts\Auto\CopytoPlayList.vbs file using a text editor.
  - Add this section as is at the end of the file and replace "PLname" with your target Playlist name (same as previous Sub):

  Code: Select all

  Sub CopyToMyPlaylist
     dim PlayList : Set PlayList = SDB.PlayListbyTitle("PLname")
     playlist.addtrack(sdb.player.currentsong)
  End Sub

• Save the file.
  -
• Edit Mediamonkey\Scripts\Scripts.ini file using a text editor.
  - Add this section as is at the end of the file:

  Code: Select all

  [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=0

• Save the file.
• Close and Restart MediaMonkey.

• Tools|Options|General|Hotkeys
  - Action = General: Execute script: Copy (currently playing) to Playlist
  - Hotkey = (your hotkey) ex.: CTRL+ALT+B
• Click APPLY and OK.

WCityMike wrote:As far as I can tell, the "auto" script cited above does not work.

    dim PlayList : Set PlayList = SDB.PlayListbyTitle("EyaL")

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.)