Get and Set Search Folders Example (VBA)

This example shows how to get and set the file locations in which SOLIDWORKS searches for reference documents.

'----------------------------------------------------------------------------
' Preconditions: Open SOLIDWORKS.
'
' Postconditions:
' 1. Inspect the Immediate window.
' 2. c:\ is added to the beginning of the search folder path for reference
'    documents.
' ---------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim searchFolders As String
Dim boolstatus As Boolean

Sub main()

    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
   

    swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swUseFolderSearchRules, False
   

    searchFolders = "c:\;" & searchFolders
    boolstatus = swApp.SetSearchFolders(0, searchFolders)
    searchFolders = swApp.GetSearchFolders(0)
    Debug.Print "New search path:     " & searchFolders

End Sub