Objeto SearchScope

SearchScopes SearchScope
ScopeFolder

Corresponde a un tipo de árbol de carpetas que se puede buscar utilizando el objeto FileSearch. Por ejemplo, las unidades locales de su equipo representan un solo ámbito de búsqueda. Las carpetas de red y las de Microsoft Outlook son también dos ámbitos individuales de búsqueda disponibles. Cada objeto SearchScope incluye un solo objeto ScopeFolder que corresponde a la carpeta raíz del ámbito de búsqueda.

Utilizar el objeto SearchScope

Utilice el método Item de la colección SearchScopes para devolver un objeto SearchScope, por ejemplo:

Dim ss As SearchScope
Set ss = Application.FileSearch.SearchScopes.Item(1)

En última instancia, el objeto SearchScope se utiliza para proporcionar acceso a los objetos ScopeFolder que pueden agregarse a la colección SearchFolders. Si desea ver un ejemplo al respecto, consulte el tema relativo a la colección SearchFolders.

Consulte el tema relativo al objeto ScopeFolder para ver un sencillo ejemplo de la devolución de un objeto ScopeFolder desde un objeto SearchScope.

El ejemplo siguiente muestra todos los objetos SearchScope 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