VBA/Excel/Access/Word/Application/SearchScopes
The SearchScopes Collection and SearchScope Objects
<source lang="vb">
Sub search()
Dim sss As SearchScopes Dim numSSS As Integer Set sss = Application.fileSearch.SearchScopes numSSS = sss.Count
End Sub
Search Scope Types Type (as VBA constant) Description msoSearchInCustom Custom search scope msoSearchInMyComputer All local drives (for example, A:\, C:\, D:\, and so on) msoSearchInMyNetworkPlaces All network drives msoSearchInOutlook Microsoft Outlook folders
</source>