Объект ScopeFolder (Office)

Соответствует папке с возможностью поиска. Объекты ScopeFolder предназначены для использования с коллекцией SearchFolders.

Замечания

Если требуется выполнить поиск в определенных папках, можно использовать методы и свойства объекта SearchScope и коллекции ScopeFolders , чтобы получить объекты ScopeFolder и добавить их в коллекцию SearchFolders .

В каждом объекте ScopeFolder есть коллекция ScopeFolders , которая содержит вложенные папки родительского объекта ScopeFolder . Вы можете просмотреть всю структуру папок области поиска (например, все локальные диски), выполнив цикл по этим коллекциям ScopeFolders и возвратив все объекты ScopeFolder нижнего уровня. Объект ScopeFolder без вложенных папок содержит пустую коллекцию ScopeFolders .

Пример, демонстрирующий цикл по всем объектам ScopeFolder в области поиска, см. в разделе коллекция SearchFolders .

Используйте метод Add коллекции SearchFolders , чтобы добавить объект ScopeFolder в коллекцию SearchFolders ; однако обычно проще использовать метод AddToSearchFoldersобъекта ScopeFolder , который требуется добавить, так как для всех поисковых запросов существует только одна коллекция SearchFolders .

Пример добавления ScopeFolder в коллекцию SearchFolders см. в разделе Коллекция SearchFolders .

Пример

Используйте свойство ScopeFolder объекта SearchScope , чтобы вернуть корневой объект ScopeFolder области поиска; Например:

Set sf = SearchScopes.Item(1).ScopeFolder

Используйте свойство Item коллекции ScopeFolders , чтобы вернуть вложенную папку корневого объекта ScopeFolder ; Например:

Set sf = SearchScopes.Item(1).ScopeFolder.ScopeFolders.Item(1)

В следующем примере отображается корневой путь к каждому каталогу в разделе "Мой компьютер". Чтобы получить эти сведения, в примере сначала возвращается объект ScopeFolder в корне моего компьютера. Путь к этому объекту ScopeFolder всегда будет иметь значение "*". Как и для всех объектов ScopeFolder , корневой объект содержит коллекцию ScopeFolders . В этом примере выполняется цикл по коллекции ScopeFolders и отображается путь к каждому объекту ScopeFolder в ней. Пути к этим объектам ScopeFolder будут: A:\, C:\и т. д.

Sub DisplayRootScopeFolders() 
 
 'Declare variables that reference a 
 'SearchScope and a ScopeFolder object. 
 Dim ss As SearchScope 
 Dim sf As ScopeFolder 
 
 '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 "ScopeFolder object's path: " & sf.Path 
 Next sf 
 
 Case Else 
 End Select 
 Next 
 
End Sub

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.