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>