Template:Example Code

Complete script

Sub

  For iCounter = 0 to objSongList.count - 1                                    'SongLists
      Set objSongData = objSongList.Item(iCounter)
      -- = objSongData.-
      SDB.MessageBox "Value = '" &  -- & "'", mtError, Array(mbOK)    'SDB.MessageBox
  Next
' objSongData.- = -New- 'Commented Out For Safety
' objSonglist.UpdateAll              'Commented Out For Safety                 'UpdateAll
                         Updates db and writes tags (if checked in options)
End Sub