Propiedad ScopeFolders

Devuelve una colección ScopeFolders. Los elementos de esta colección corresponden a las subcarpetas del objeto ScopeFolder maestro.

expresión   Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.

Ejemplo

El ejemplo siguiente muestra la ruta de acceso raíz a cada directorio de Mi PC. Para recuperar esta información, el ejemplo obtiene primero el objeto ScopeFolder de la raíz de Mi PC. La ruta de acceso a este objeto ScopeFolder será siempre "*". Como con todos los objetos ScopeFolder, el objeto raíz contiene una colección ScopeFolders. El ejemplo recorre esta colección ScopeFolders y muestra la ruta de acceso a cada objeto ScopeFolder de la misma. Las rutas de acceso a estos objetos ScopeFolder serán "A:\", "C:\", etc.

Sub DisplayRootScopeFolders()

    'Declare variables that reference a
    'SearchScope and a ScopeFolder object.
    Dim ss As SearchScope
    Dim sf As ScopeFolder

    'Use a With...End With block to reference the
    'FileSearch object.
    With Application.FileSearch

        'Loop through the SearchScopes collection
        'and display all of the root ScopeFolders collections in
        'the My Computer scope.
        For Each ss In .SearchScopes
            Select Case ss.Type
                Case msoSearchInMyComputer

                    'Loop through each ScopeFolder object in
                    'the ScopeFolders collection of the
                    'SearchScope object and display the path.
                    For Each sf In ss.ScopeFolder.ScopeFolders
                        MsgBox "Path: " & sf.Path
                    Next sf

                Case Else
            End Select
        Nextb ss
    End With
End Sub