Freigeben über


Application.EnumDirectories-Methode (Visio)

Gibt ein Array mit dem Namen der Ordner zurück, die Microsoft Visio durchsuchen würde, wenn eine Liste von Pfaden vorhanden ist.

Syntax

Ausdruck. EnumDirectories (PathsString, NameArray())

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
PathsString Erforderlich String Eine Zeichenfolge vollständiger oder unvollständiger Pfade, die durch Semikolons getrennt sind.
NameArray() Erforderlich String Ausgabeparameter. Ein Array, das die aufgezählten Ordnernamen erhält.

Rückgabewert

Nichts

Bemerkungen

Mehrere Visio-Eigenschaften wie AddonPaths und TemplatePaths akzeptieren und empfangen eine Zeichenfolge, die als durch Semikolons getrennte Liste mit Pfadnamen (Ordnernamen) interpretiert werden kann. Wenn die Anwendung in den genannten Pfaden nach Elementen sucht, werden die Ordner und alle Unterordner durchsucht.

Die EnumDirectories-Methode dient dazu, eine Zeichenfolge zu akzeptieren, z. B. eine von der AddonPaths-Eigenschaft erzeugte Zeichenfolge, und eine Liste der Ordner zurückzugeben, die beim Verarbeiten einer solchen Zeichenfolge von der Anwendung aufgezählt werden.

Wenn die EnumDirectories-Methode erfolgreich ausgeführt wird, gibt NameArray() ein eindimensionales Array von n Zeichenfolgen zurück, indiziert von 0 bis n - 1. Jede Zeichenfolge ist der vollqualifizierte Name eines vorhandenen Ordners. In der Liste werden alle vorhandenen Ordner der Pfadliste sowie deren gesamte Unterordner angegeben.

Der NameArray()-Parameter ist ein Ausgabeparameter, der von der EnumDirectories-Methode zugeordnet wird, und der Besitz wird an den Aufrufer zurückgegeben. Der Aufrufer sollte zum Schluss die SafeArrayDestroy-Prozedur für das zurückgegebene Array ausführen. (Microsoft Visual Basic und Visual Basic für Applikationen geben die Zeichenfolgen automatisch frei, auf die von den Einträgen des Arrays verwiesen wird.)

Beispiel

Mit dem folgenden Beispiel wird gezeigt, wie die EnumDirectories-Methode verwendet wird, um (im Direktfenster) eine Liste aller Ordner zu drucken, die von Visio auf Add-Ons durchsucht werden.

 
Public Sub EnumDirectories_Example() 
 
 Dim strDirectoryNames() As String 
 Dim intLowerBound As Integer 
 Dim intUpperBound As Integer 
 
 Application.EnumDirectories Application.AddonPaths, strDirectoryNames 
 
 intLowerBound = LBound(strDirectoryNames) 
 intUpperBound = UBound(strDirectoryNames) 
 
 While intLowerBound <= intUpperBound 
 Debug.Print strDirectoryNames(intLowerBound) 
 intLowerBound = intLowerBound + 1 
 Wend 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.