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