MediaMonkey forum

Code: Select all

'==========================================================================
'
' NAME: PlayCountScript.vbs
'
' DATE  : 14.07.2019.
'
' COMMENT: Set Desired Playcount, Save PlayCountScript.vbs to Scripts\Auto folder and restart MMW
'
'==========================================================================
Script.Reload(Script.ScriptPath)

Sub OnStartup
  Dim SPLayCount
  Set SPLayCount = SDB.UI.AddMenuItem(SDB.UI.Menu_TbAdvanced,0,0)
  SPLayCount.Caption = "Increase Play Count"
  SPLayCount.OnClickFunc = "ChangePlayCounter"
  SPLayCount.UseScript = Script.ScriptPath
  SPLayCount.IconIndex = 63
End Sub

Sub ChangePlayCounter(arg)

  Dim list, itm, i, newPlayCounter, mb, progress
  newPlayCounter = InputBox("Enter the new value for the Played field", "Modify Play Counter")
  If  newPlayCounter = "" Then
  	Exit Sub
  End If
  
  If Not IsNumeric(newPlayCounter) Then
  	mb = SDB.MessageBox("You did not enter a number. Please try again.",0,"Error")
  	Exit Sub
  ElseIf newPlayCounter < 0 Then
  	mb = SDB.MessageBox("Only positive numbers or 0 are allowed. Please try again.",0,"Error")
  	Exit Sub
    End If

  If list.count = 0 Then
  	mb = SDB.MessageBox("No songs were selected. Please select some songs and try again",0,"Error")
  	Exit Sub
  End If
  
  Set Progress = SDB.Progress
  Progress.Text = "Changing Play Counters..."
  Progress.MaxValue = list.count

  For i=0 To list.count-1
    Set itm = list.Item(i)
    'Set the Play Counter
    itm.PlayCounter = newPlayCounter
    itm.UpdateDB
    Progress.value = i+1
    If Progress.terminate Then
    	Exit For
    End if	
  Next
  
  Set Progress =  Nothing
  
End Sub