I have tried to run the google search script, as well as the wikipedia,lastfm and allmusic.
In all cases I get the following error.
Error#-2147023241
File "E:\Program Files\MediaMonkey\Scripts\Auto\Google.vbs" Line: 50, Column: 9
When you press the OK button, the following is displayed.
Error happened during script execution:
No application is associated with the specified file for this operation.
The code with associated line numbers is:
37 Sub Google(MenuItem)
38 if SDB.SelectedSongL ist.Count > 0 then
39 Dim Song
40 Set Song = SDB.Se lectedSongList.Item(0)
41 Dim Artist
42 Dim Album
43
44 Artist = "%22" + Replace(Song.ArtistName, " ", "%20") + "%22"
45 Album = "%22" + R eplace(Song.AlbumName, " ", "%20") + "%22"
46
47 Dim WshShell
48 Set WshShell = Cr eateObject("WScript.Shell")
49 if MenuItem.Hint = "Artist" then
50 WshShell.Run("
www.google.com/search?q=" + Artist + "")
51 else
52 WshShell.Run("
www.google.com/search?q=" + Artist + "+" + Album)
53 end if
54 Set WshShell = No thing
55 end if
56 end Sub
Your help is appreciated in advance.
I have tried to run the google search script, as well as the wikipedia,lastfm and allmusic.
In all cases I get the following error.
Error#-2147023241
File "E:\Program Files\MediaMonkey\Scripts\Auto\Google.vbs" Line: 50, Column: 9
When you press the OK button, the following is displayed.
Error happened during script execution:
No application is associated with the specified file for this operation.
The code with associated line numbers is:
37 Sub Google(MenuItem)
38 if SDB.SelectedSongL ist.Count > 0 then
39 Dim Song
40 Set Song = SDB.Se lectedSongList.Item(0)
41 Dim Artist
42 Dim Album
43
44 Artist = "%22" + Replace(Song.ArtistName, " ", "%20") + "%22"
45 Album = "%22" + R eplace(Song.AlbumName, " ", "%20") + "%22"
46
47 Dim WshShell
48 Set WshShell = Cr eateObject("WScript.Shell")
49 if MenuItem.Hint = "Artist" then
50 WshShell.Run(" www.google.com/search?q=" + Artist + "")
51 else
52 WshShell.Run(" www.google.com/search?q=" + Artist + "+" + Album)
53 end if
54 Set WshShell = No thing
55 end if
56 end Sub
Your help is appreciated in advance.