by fishypops » Sat Jun 11, 2011 9:35 am
Stupidly I executed the script "Swap Artist and Title", in error.
So, I have tried to write a script to partially undo, what I did. (the script is below - it could do with a check).
But the real problem that I have is that MM can't execute "File XXX.vbs cannot be opened; the file is unavailable or you may not have permission to access it"
I am signed in as an administrator, I launched MM as administrator.
What have I done wrong /
Script:
' A simple script that copies the Artist to the tite field of selected tracks
Sub CopyArtist_Title
' Define variables
Dim list, itm, i, tmp
' Get list of selected tracks from MediaMonkey
Set list = SDB.SelectedSongList
If list.count=0 Then
Set list = SDB.AllVisibleSongList
End If
' Process all selected tracks
For i=0 To list.count-1
Set itm = list.Item(i)
' copy the fields
itm.Title = itm.ArtistName
' Update the changes in DB
itm.UpdateDB
Next
End Sub
Stupidly I executed the script "Swap Artist and Title", in error.
So, I have tried to write a script to partially undo, what I did. (the script is below - it could do with a check).
But the real problem that I have is that MM can't execute "File XXX.vbs cannot be opened; the file is unavailable or you may not have permission to access it"
I am signed in as an administrator, I launched MM as administrator.
What have I done wrong /
[b]Script[/b]:
' A simple script that copies the Artist to the tite field of selected tracks
Sub CopyArtist_Title
' Define variables
Dim list, itm, i, tmp
' Get list of selected tracks from MediaMonkey
Set list = SDB.SelectedSongList
If list.count=0 Then
Set list = SDB.AllVisibleSongList
End If
' Process all selected tracks
For i=0 To list.count-1
Set itm = list.Item(i)
' copy the fields
itm.Title = itm.ArtistName
' Update the changes in DB
itm.UpdateDB
Next
End Sub