Thanks
Jon
Code: Select all
Sub Winamp2
Dim WShell, Command, list, itm, i
' Set List
Set list = SDB.SelectedSonglist
If list.count=0 Then
Set list = SDB.AllVisibleSonglist
If list.count=0 Then
res = SDB.MessageBox( "Select Tracks to be exported, please.", mtError, Array(mbOk))
Exit Sub
End If
End If
Dim Progress
Set Progress = SDB.Progress
Progress.Text = "Working..."
' Iterate through the list and export all songs
Progress.MaxValue = list.count
for i=0 to list.count-1
Set itm = list.Item(i)
' Exporting to Winamp
Set WShell = CreateObject("WScript.Shell")
Command = Chr(34)&"H:\Winamp\winamp.exe"&Chr(34) &" "&Chr(34)&itm.Path&Chr(34)
WShell.Run Command, 1, 0
Progress.Value = i+1
if Progress.Terminate then
Exit For
end if
next
End Sub
Code: Select all
[Winamp2]
FileName=Winamp2.vbs
ProcName=Winamp2
Order=1
DisplayName=Send To Winamp (2)
Description=Sends Songs To Winamp Player
Language=VBScript
ScriptType=0