'{------------------------------------------------------------------- 
'Monitor/preview a selected track in media library 
'Flup, 14-02-2005 
'ActiveWinamp VBScript needed ' 
'How to install: 
' 1. Have a second install/instance of winamp. 
' 2. Edit line 22 if needed
'How to use it: Script will integrate itself in "Advanced" ToolBar 
'and "Send To..." Pop-up menu of Track View ' 
'-------------------------------------------------------------------} 
 
Dim WshShell, x, Track 
Set WshShell=CreateObject("WScript.Shell") 
x = GetSendToItems 
if ubound(x,1) > 0 then 
 Set Track = x(1)
 WshShell.Run( """c:\program files\WinampLite\winamp.exe""" &chr(34)&Track.filename&chr(34))
end if 
quit