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.