Code: Select all
Dim oSonglist
Dim oSongData
Dim i
Set oSonglist = SDB.SelectedSongList
For i = 0 to oSonglist.Count-1
Set oSongData = oSonglist.Item(i)
If oSongData.IsntInDB Or oSongData.SongID = -1 Then
oSongData.UpdateDB
oSongData.AlbumArt.UpdateDB
End If
Next