I recorded this quote (it works as I manually added a folder, "C:\Temp\Custom CustomApp") in the system option and the folder was shown in the Appearances task pane)
but when I run this quote, the folder "C:\Temp\Custom CustomApp") was shown in the System option but not added to the Appearance task pane. and if I closed and reopen the SW, this folder is disappeared from the system option.
what am I doing wrong here?
Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Sub main() Set swApp = Application.SldWorks boolstatus = swApp.SetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsCustomAppearances, "C:\Temp\Custom CustomApp") End Sub