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