Get and Set Search Folders Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions: Open the Immediate window.
'
' Postconditions:
' 1. Adds c:\; to the beginning of the search folder path for reference
'    documents.
' 2. Inspect the Immediate window.
'
' NOTE: This macro changes your SOLIDWORKS search folders system settings.
'---------------------------------------------------------------------------

	Imports SolidWorks.Interop.sldworks

	Imports SolidWorks.Interop.swconst

	Imports System.Runtime.InteropServices

	Imports System

	Imports System.Diagnostics



	Partial Class SolidWorksMacro


	    Dim Part As ModelDoc2

	    Dim searchFolders As String

	    Dim boolstatus As Boolean


	    Sub main()


	        Part = swApp.ActiveDoc


	        swApp.SetUserPreferenceToggle(swUserPreferenceToggle_e.swUseFolderSearchRules, False)

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


	    End Sub


	   

	    Public swApp As SldWorks



	End Class