The SearchFolders Collection and ScopeFolder Objects : SearchFolders « File Path « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. File Path
3. 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

 

Related examples in the same category