Propiedad SearchScopes
Devuelve una colección SearchScopes.
expresión.SearchScopes
expresión Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.
Ejemplo
El ejemplo siguiente muestra todos los objetos SearchScope de la colección SearchScopes disponibles actualmente.
Sub DisplayAvailableScopes()
'Declare a variable that references a
'SearchScope object.
Dim ss As SearchScope
'Use a With...End With block to reference the
'FileSearch object.
With Application.FileSearch
'Loop through the SearchScopes collection
For Each ss In .SearchScopes
Select Case ss.Type
Case msoSearchInMyComputer
MsgBox "My Computer is an available search scope."
Case msoSearchInMyNetworkPlaces
MsgBox "My Network Places is an available search scope."
Case msoSearchInOutlook
MsgBox "Outlook is an available search scope."
Case msoSearchInCustom
MsgBox "A custom search scope is available."
Case Else
MsgBox "Can't determine search scope."
End Select
Next ss
End With
End Sub