VBA/Excel/Access/Word/File Path/SearchFolders

The SearchFolders Collection and ScopeFolder Objects

 
Private Sub SetRootFolder()
    Dim sfs As SearchFolders
    Dim sf As ScopeFolder
    Dim subsf As ScopeFolder
    Dim I As Integer
    Set sfs = Application.fileSearch.SearchFolders
    Set sf = Application.fileSearch.SearchScopes.Item(1).ScopeFolder
    With sf
        For Each subsf In .ScopeFolders
            If subsf.Path = rootFolder Then
                subsf.AddToSearchFolders
            End If
        Next subsf
    End With
End Sub