Opening on a different node
Moderator: Gurus
Opening on a different node
Apologies if this has been asked before...
I'd like MM to open on the Library Artist node on startup/default. Anyone know how I can change it?
Thank you!
I'd like MM to open on the Library Artist node on startup/default. Anyone know how I can change it?
Thank you!
-
- Posts: 2157
- Joined: Fri Jan 14, 2005 1:45 am
- Location: Germany
- Contact:
Code: Select all
'Create a File SelectNode.vbs in MediaMonkey\Script\Auto
'and paste these Lines into it
'Restart MM
Dim SelectNode
Set SelectNode = SDB.MainTree.Node_Artist
SDB.MainTree.CurrentNode = SelectNode
SelectNode.Expanded = True
Set SelectNode = Nothing
-
- Posts: 2157
- Joined: Fri Jan 14, 2005 1:45 am
- Location: Germany
- Contact:
-
- Posts: 2157
- Joined: Fri Jan 14, 2005 1:45 am
- Location: Germany
- Contact:
-
- Posts: 2157
- Joined: Fri Jan 14, 2005 1:45 am
- Location: Germany
- Contact:
Guest wrote:Is it possible to have MM open to a Magic Node using the aforementioned script?
Code: Select all
'Create a File SelectNode.vbs in MediaMonkey\Script\Auto
'and paste these Lines into it
'Restart MM
Dim SelectNode
Set SelectNode = SDB.Objects("CustomNodeRoot")
if Not (SelectNode is Nothing) then
SDB.MainTree.CurrentNode = SelectNode
SelectNode.Expanded = True
end if
Set SelectNode = Nothing
-
- Posts: 2157
- Joined: Fri Jan 14, 2005 1:45 am
- Location: Germany
- Contact:
-
- Posts: 2157
- Joined: Fri Jan 14, 2005 1:45 am
- Location: Germany
- Contact:
@Jiri, thanks for the hint
But be careful. If there's no Magic Node with that Caption there will be an error with the NextSibilingNode-Property (when there is no more MagicNode) - but I don't know why.
Code: Select all
'Create a File SelectNode.vbs in MediaMonkey\Script\Auto
'and paste these Lines into it
'Restart MM
const strMagicNode = "Audio Type"
Dim MagicNode
Dim MagicNodes
Set MagicNodes = SDB.Objects("CustomNodeRoot")
if Not (MagicNodes is Nothing) then
SDB.MainTree.CurrentNode = MagicNodes
MagicNodes.Expanded = True
Set MagicNode = SDB.MainTree.FirstChildNode(MagicNodes)
do while not (MagicNode is Nothing)
if LCase(MagicNode.Caption) = LCase(strMagicNode) then
SDB.MainTree.CurrentNode = MagicNode
MagicNode.Expanded = True
exit do
end if
Set MagicNode = SDB.MainTree.NextSiblingNode(MagicNode)
loop
Set MagicNode = Nothing
end if
Set MagicNodes = Nothing