Свойство ScopeFolder. Path (Office)ScopeFolder.Path property (Office)

Возвращает строку , указывающую полный путь к объекту ScopeFolder .Gets a String indicating the full path of a ScopeFolder object. Только для чтения.Read-only.

СинтаксисSyntax

Expression. Path (путь )expression.Path

Expression (выражение ) Переменная, представляющая объект ScopeFolder .expression A variable that represents a ScopeFolder object.

ПримерExample

В следующем примере отображается корневой путь каждого каталога в разделе Мой компьютер.The following example displays the root path of each directory in My Computer. Чтобы получить эти сведения, пример сначала получает объект ScopeFolder в корневой папке "Мой компьютер".To retrieve this information, the example first gets the ScopeFolder object at the root of My Computer. Путь к этому ScopeFolder всегда будет иметь значение "*".The path of this ScopeFolder will always be "*". Как и в случае со всеми объектами ScopeFolder , корневой объект содержит коллекцию ScopeFolders .As with all ScopeFolder objects, the root object contains a ScopeFolders collection. В этом примере выполняется цикл через эту коллекцию ScopeFolders и отображается путь к каждому объекту ScopeFolder в нем.This example loops through this ScopeFolders collection and displays the path of each ScopeFolder object in it. Для этих объектов ScopeFolder будут использоваться A:\ C:\пути и т. д.The paths of these ScopeFolder objects will be A:\, C:\, etc.

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 collections 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 
 Next ss 
 
End Sub

См. такжеSee also

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.