Here is themacro which reads location. The location returned as ';' separated string. So you can change it and set back.
Dim swApp As SldWorks.SldWorks
Set swApp = Application.SldWorks
Dim foldersList As String
foldersList = swApp.GetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsDocuments)
Dim folders As Variant
folders = Split(foldersList, ";")
If Not IsEmpty(folders) Then
Dim i As Integer
For i = 0 To UBound(folders)
OK HERE IT IS PEOPLE.
It works erratically. It will work once, and then when I try it again it will hang up and do nothing.
I have added the Ptrsafe modifications for 64 bit systems as described here.
any ideas on how to make this more stable?