PPS
This
Code: Select all
Dim iniMM: Set iniMM = sdb.IniFile
If iniMM.BoolValue(SCRIPT_NAME, "Logging") = "" Then 'set it the first time we launch
iniMM.BoolValue(SCRIPT_NAME, "Logging") = False
End If
Code: Select all
Dim iniMM: Set iniMM = sdb.IniFile
If NOT iniMM.ValueExists(SCRIPT_NAME, "Logging") Then 'set it the first time we launch
iniMM.BoolValue(SCRIPT_NAME, "Logging") = False
End If
I accidently added a menu icon, but couldn't delete it as it was the only one except by editing the mediamonkey.ini?
PPPPS
Some code you might find useful
Code: Select all
Set iniPP = SDB.Tools.IniFileByPath(iniPathedFileName)
Set SectionsStringList = iniPP.Sections
SectionCount = SectionsStringList.Count
For xCounter = 0 to SectionCount - 1
SectionName = SectionsStringList.Item(xCounter)
filename = iniPP(SectionName,"filename")
procname = iniPP(SectionName,"procname")
displayname = iniPP(SectionName,"displayname")
description = iniPP(SectionName,"description")
scripttype = iniPP(SectionName,"scripttype")
icon = iniPP(SectionName,"icon")
submenu = iniPP(SectionName,"submenu")
If Stuff is correct/matches then
Add it to the array
End If
Next