Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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