Application VisualBasic Script

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