I’m accessing the integer successfully with this
intAmount_ev = Rhino.GetSettings(Rhino.InstallFolder & “Gelfling.ini”, “AdvancedDivideCurves”, “Amount_ev”)
If IsNull(intAmount_ev) Then intAmount_ev = 1 Else intAmount_ev = CInt(intAmount_ev)
I used to be able to save the integer with this ?
Rhino.SaveSettings Rhino.InstallFolder & “Gelfling.ini”, “AdvancedDivideCurves”, “Amount_ev”, intAmount_ev
I tried a couple variations of Rhino.SetDocumentData with no success.?
This is a permissions problem. I believe the last Microsoft OS that allows you to freely write to the Program Files folder was Windows XP. Newer operating systems project this folder.
Here is a better way to get a folder that you can write into:
Sub Main
Dim objShell, strPath
Set objShell = CreateObject("WScript.Shell")
strPath = objShell.ExpandEnvironmentStrings("%AppData%")
' TODO...
End Sub
hi Dale
My apologies I do not have a formal programming background, I only have a half an idea how to use this. Would the “strPath” be the equivalent to “intAmount_ev” in my prior post. ?