InvisibleApp.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())

Ausdruck Eine Variable, die ein InvisibleApp-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

String()

HinwBemerkungeneise

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

Das folgende Beispiel zeigt, wie sie die EnumDirectories-Methode verwenden, um im Direktfenster eine Liste aller Ordner auszugeben, die Visio nach Add-Ons sucht.

 
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.