Code: Select all
Dim inip : inip = SDB.ScriptsPath & "Scripts.ini"
Dim inif : Set inif = SDB.Tools.IniFileByPath(inip)
If Not (inif Is Nothing) Then
inif.StringValue(scriptName,"Filename") = "PersonalTagEnhancer.vbs"
inif.StringValue(scriptName,"Procname") = "PersonalTagEnhancer"
inif.StringValue(scriptName,"Order") = "10"
inif.StringValue(scriptName,"DisplayName") = "PersonalTagEnhancer"
inif.StringValue(scriptName,"Description") = "Fixes most important tags using personal preferences"
inif.StringValue(scriptName,"Language") = "VBScript"
inif.StringValue(scriptName,"ScriptType") = "0"
inif.StringValue(scriptName,"Shortcut") = "Ctrl+i"
inif.Apply
SDB.RefreshScriptItems
End If
The SDB.IniFile does not offer an option for creating Sections. Only removing or checking existance...