Mega Code Archive

 

Categories / VisualBasic Script / Application

 

The SearchScopes Collection and SearchScope Objects

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