ScopeFolder. Path-Eigenschaft (Office)ScopeFolder.Path property (Office)

Ruft eine Zeichenfolge ab, die den vollständigen Pfad eines ScopeFolder -Objekts angibt.Gets a String indicating the full path of a ScopeFolder object. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. Pfadexpression.Path

Ausdruck Eine Variable, die ein ScopeFolder -Objekt darstellt.expression A variable that represents a ScopeFolder object.

BeispielExample

Im folgenden Beispiel wird der Stammpfad jedes Verzeichnisses in "Arbeitsplatz" angezeigt.The following example displays the root path of each directory in My Computer. Zum Abrufen dieser Informationen Ruft das Beispiel zuerst das ScopeFolder -Objekt im Stammverzeichnis meines Computers ab.To retrieve this information, the example first gets the ScopeFolder object at the root of My Computer. Der Pfad dieses ScopeFolder ist immer "*".The path of this ScopeFolder will always be "*". Wie bei allen ScopeFolder -Objekten enthält das Stammobjekt eine ScopeFolders -Auflistung.As with all ScopeFolder objects, the root object contains a ScopeFolders collection. In diesem Beispiel wird die ScopeFolders -Auflistung durchlaufen, und es wird der Pfad der einzelnen ScopeFolder -Objekte angezeigt.This example loops through this ScopeFolders collection and displays the path of each ScopeFolder object in it. Die Pfade dieser ScopeFolder -Objekte werden, A:\usw C:\. sein.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

Siehe auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.