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