Adds new node: Library - Files to Edit - Unknown Volume
Now available in two versions.
Install Script v1.00 Without Auto Analyze
Open zip, and double click install file.
Install Script v2.10 With Auto Analyze
Open zip, and double click install file.
In version 2.1 you may want to tweak the number you consider to be max to analyze at once automatically.
Set between 0 and 300 in the script. Tweak as you like.
Code: Select all
If SDB.AllVisibleSongList.Count> 0 And _
SDB.AllVisibleSongList.Count< 300 Then
Code: Select all
'-------------------------------------------------------------------
' \Program Files\MediaMonkey\Scripts\Auto\Node_UnknownVolume.vbs
'
' Adds node: Library - Files to Edit - Unknown Volume Level
' Helps to find files for the Tools - Analyze Volume command
'
' Version: 1.00
' Date: July 2006
' By DiddeLeeDoo
'-------------------------------------------------------------------
Sub OnStartup
Set VLN=SDB.MainTree.CreateNode
VLN.Caption=SDB.Localize("Unknown Volume")
VLN.IconIndex=40
VLN.UseScript=Script.ScriptPath
VLN.OnFillTracksFunct="VLFiles"
SDB.MainTree.AddNode SDB.MainTree.Node_FilesToEdit, VLN, 2
End Sub
Sub VLFiles(VLNode)
SQL="AND Songs.NormalizeTrack=-999999"
SDB.MainTracksWindow.AddTracksFromQuery(SQL)
SDB.MainTracksWindow.FinishAdding
End Sub
Version 2.1
Code: Select all
'-------------------------------------------------------------------
' \Program Files\MediaMonkey\Scripts\Auto\Node_UnknownVolume.vbs
'
' Adds node: Library - Files to Edit - Unknown Volume Level
' Helps to find files for the Tools - Analyze Volume command
'
' Version: 2.10
' Date: 12 August 2006
' By DiddeLeeDoo
'-------------------------------------------------------------------
Sub OnStartup
Set VLN=SDB.MainTree.CreateNode
VLN.Caption=SDB.Localize("Unknown Volume")
VLN.IconIndex=40
VLN.UseScript=Script.ScriptPath
VLN.OnFillTracksFunct="VLFiles"
SDB.MainTree.AddNode SDB.MainTree.Node_FilesToEdit, VLN, 2
End Sub
Sub VLFiles(VLNode)
SQL="AND Songs.NormalizeTrack=-999999"
SDB.MainTracksWindow.AddTracksFromQuery(SQL)
SDB.MainTracksWindow.FinishAdding
If SDB.AllVisibleSongList.Count> 0 And _
SDB.AllVisibleSongList.Count< 300 Then
CreateObject("WScript.Shell").SendKeys "(^a)"
CreateObject("WScript.Shell").SendKeys "(+^v)"
End If
End Sub