---

Hallo Forum,

ich möchte mit einem VBA Makro einige Einträge in den Dateipositionen verändern.
Ich habe schon rausbekommen das es mit z.B.
boolstatus = swApp.SetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsDocumentTemplates, "K:\Bibliotheken\Bibilothek SolidWorks\Dokumentvorlagen")geht. Jedoch wird immer nur der letzte Eintrag vom Makro behalten und der Rest überschrieben.
Kann mir jemad da weiterhelfen wie ich den Befehl schreiben muss um mehrere Einträge eintragen zu können.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Udo

Du musst die Pfade mit ";"-getrennt angeben.
Hier ein Beispiel mit einem Array zur besseren Übersicht und dem Verbinden mit dem ";".

Code:

---

Dim swApp As SldWorks.SldWorks
Dim LocationsDocumentTemplates(3) As String
Dim boolstatus As Boolean

Sub main()
Set swApp = Application.SldWorks

LocationsDocumentTemplates(1) = "K:\Bibliotheken\Bibilothek SolidWorks\Dokumentvorlagen"
LocationsDocumentTemplates(2) = "C:\Temp"
LocationsDocumentTemplates(3) = Environ("USERPROFILE") & "\AppData\Local\Temp\SolidWorks Enterprise PDM"

boolstatus = swApp.SetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsDocumentTemplates, Join(LocationsDocumentTemplates, ";"))
'Debug.Print "FileLocationsDocumentTemplates = " & swApp.GetUserPreferenceStringValue(swFileLocationsDocumentTemplates)

End Sub

---

Du kannst sie aber auch an einem Stück angeben:

Code:

---

Dim swApp As SldWorks.SldWorks
Dim boolstatus As Boolean

Sub main()
Set swApp = Application.SldWorks
boolstatus = swApp.SetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsDocumentTemplates, "K:\Bibliotheken\Bibilothek SolidWorks\Dokumentvorlagen;C:\Temp;" & Environ("USERPROFILE") & "\AppData\Local\Temp\SolidWorks Enterprise PDM")
End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas

Danke für die schnelle Antwort.

Gruss Udo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP