This script will allow you to create a hotkey to quickly remove or permanently delete the currently playing track.
There is no confirmation, so don't blame me if you accidently delete something you don't want to. As a safeguard, the deleted track is put in the recycle bin.
The 2nd menu isn't working, I did not see any way to remove a track from the library without deleting permanently (at least without doing sql).
I tested with some junk files and it seem to work ok, please do the same.
To create hotkey, go to tools > options > general > hotkeys >
action: general : execute scripts : script function
hotkey: press selected hotkey buttons
since this is an advanced and risky script, you will have to know what you are doing and manually add it to mediamonkey, no install or MMIP file will be created for it.
Code: Select all
Option Explicit '========================================================================== ' ' MediaMonkey Script ' ' SCRIPTNAME: Delete Now Playing ' DEVELOPMENT STARTED: 2009.09.28 Dim Version : Version = "2009.09.28.1500" ' DESCRIPTION: Removes/deletes currently playing track ' FORUM THREAD: ' ' WARNING THIS SCRIPT CAN DELETE PERMANENTLY FILES WITH NO CONFIRMATION ' USE AT YOUR OWN RISK I AM NOT RESPONSIBLE FOR ANY DAMAGES OR LOSSES' ' INSTALL: ' - Save script to mediamonkey\scripts\deletenowplaying.vbs ' - add entries to scripts.ini' ' [RemoveNP] ' Filename=deletenowplaying.vbs ' ProcName=RemoveNowPlaying ' DisplayName=Remove Now Playing Song from player ' Language=VBScript ' ScriptType=0 ' ' [RemoveNPLib] ' Filename=deletenowplaying.vbs ' ProcName=DeleteNowPlayingFromLib ' DisplayName=Removes Now Playing Song from Library ' Language=VBScript ' ScriptType=0 ' ' [RemoveNPPerm] ' Filename=deletenowplaying.vbs ' ProcName=DeleteNowPlayingPermanently ' DisplayName=Deletes Now Playing Song PERMANENTLY ' Language=VBScript ' ScriptType=0 Sub RemoveNowPlaying() 'removes from now playing (no delete)' Dim NPSong Set NPSong = SDB.Player.CurrentSong If Not NPSong is Nothing Then SDB.Player.PlaylistDelete SDB.Player.CurrentSongIndex SDB.Player.Next End If End Sub Sub DeleteNowPlayingFromLib() 'removes now playing song from library (not from drive)' 'not finished' ' Dim NPSong ' Set NPSong = SDB.Player.CurrentSong ' ' If Not NPSong is Nothing Then ' SDB.Player.PlaylistDelete SDB.Player.CurrentSongIndex ' SDB.Player.Next ' ' 'Didnt see any way to delete from library without perm delete' ' End If End Sub Sub DeleteNowPlayingPermanently() 'permanently deletes song from NP, Lib and drive' Dim NPSong Set NPSong = SDB.Player.CurrentSong If Not NPSong is Nothing Then Dim DeleteList Set DeleteList = SDB.NewSongList DeleteList.Add NPSong SDB.Player.PlaylistDelete SDB.Player.CurrentSongIndex SDB.Player.Next SDB.Tools.DeleteTracks DeleteList,False,1 End If End Sub