ISDBSongData::TotalSamples

CoClass SDBSongData, Interface ISDBSongData

Property Get/Let TotalSamples As Empty

Property description

TotalSamples

Scripting Object	SDBSongData
Value Name	TotalSamples
Value Type	Value
Database Table	Songs
Field Name	TotalSamples
Field Type	Integer
Example Data	-1

Example Code

Complete script

Sub

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