by skj88 » Wed Oct 12, 2011 11:56 pm
I am trying this code as a test to build a script to do some mass updates in MM for me. The new Genre shows in MM on the song I want it to show on, but when I update the library, the Genre tag is reset to the previous Genre(s). Your help is greatly appreciated!!
Sub TestAddGenre()
Dim SDB, Iter, objSong
Set SDB = CreateObject("SongsDB.SDBApplication")
SDB.ShutdownAfterDisconnect = False
Set Iter = SDB.Database.QuerySongs("AND Songs.ID=7522")
Set objSong = Iter.Item
objSong.Genre = "MyGenre"
objSong.Updatedb
objSong.writetags
Set objSong = Nothing
Set Iter = Nothing
Set SDB = Nothing
End Sub
Steve
I am trying this code as a test to build a script to do some mass updates in MM for me. The new Genre shows in MM on the song I want it to show on, but when I update the library, the Genre tag is reset to the previous Genre(s). Your help is greatly appreciated!!
Sub TestAddGenre()
Dim SDB, Iter, objSong
Set SDB = CreateObject("SongsDB.SDBApplication")
SDB.ShutdownAfterDisconnect = False
Set Iter = SDB.Database.QuerySongs("AND Songs.ID=7522")
Set objSong = Iter.Item
objSong.Genre = "MyGenre"
objSong.Updatedb
objSong.writetags
Set objSong = Nothing
Set Iter = Nothing
Set SDB = Nothing
End Sub
Steve