Méthode Application.EnumDirectories (Visio)

Retourne un tableau nommant les dossiers que Microsoft Visio recherche, en fonction d’une liste de chemins d’accès.

Syntaxe

expression. EnumDirectories (PathsString, NameArray())

expressionUne variable qui représente un objetApplication.

Paramètres

Valeur renvoyée

Aucune

Remarques

Plusieurs propriétés de Visio, telles que AddonPaths et TemplatePaths, acceptent et reçoivent une chaîne interprétée comme une liste de noms de chemins d'accès (dossiers) séparés par des points-virgules. Lorsque l'application recherche des éléments dans les chemins indiqués, elle recherche dans les dossiers et tous leurs sous-dossiers.

L'objectif de la méthode EnumDirectories est d'accepter une chaîne comme celle que peut produire la propriété AddonPaths et de renvoyer une liste des dossiers énumérés lors du traitement de la chaîne.

Si la méthode EnumDirectories réussit, TableauNoms() renvoie un tableau à une dimension de n chaînes indexées de 0 à n-1. Chaque chaîne est le nom complet d'un dossier existant. La liste énumère ces dossiers existants désignés dans la liste des chemins d'accès, ainsi que leurs sous-dossiers.

L'argument TableauNoms() est un paramètre de sortie attribué par la méthode EnumDirectories et sa propriété est retransmise à l'appelant. Ce dernier doit finalement exécuter la procédure SafeArrayDestroy sur le tableau renvoyé. (Microsoft Visual Basic et Visual Basic pour Applications libèrent automatiquement les chaînes auxquelles les entrées du tableau font référence.)

Exemple

L'exemple suivant indique comment utiliser la méthode EnumDirectories pour afficher (dans la fenêtre Exécution) une liste de tous les dossiers dans lesquels Visio recherche des modules complémentaires.

 
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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.