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

The SearchFolders Collection and ScopeFolder Objects

   <source lang="vb">

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

</source>