Método Application.EnumDirectories (Visio)

Devuelve una matriz que asigna un nombre a las carpetas en las que Microsoft Visio buscaría, dada una lista de rutas de acceso.

Sintaxis

expresión. EnumDirectories (PathsString, NameArray())

expresión Variable que representa un objeto Application.

Parámetros

Valor devuelto

Nothing

Comentarios

Algunas propiedades de Visio, como AddonPaths y TemplatePaths, aceptan y reciben una cadena que se interpreta como una lista de nombres de rutas (carpetas) separados mediante signos de punto y coma. Cuando la aplicación busca elementos en las rutas de acceso indicadas, examina las carpetas y todas sus subcarpetas.

El propósito del método EnumDirectories es aceptar una cadena como la producida por la propiedad AddonPaths y devolver una lista de las carpetas que la aplicación enumera al procesar dicha cadena.

Si el método EnumDirectories se ejecuta correctamente, NameArray() devuelve una matriz unidimensional de n cadenas indizadas desde 0 hasta n - 1. Cada cadena es el nombre completo de una carpeta existente. La lista especifica los nombres de las carpetas designadas en la lista de rutas que existen y todas sus subcarpetas.

El parámetro NameArray() es un parámetro de salida asignado por el método EnumDirectories, cuya propiedad se pasa de nuevo al llamador. El llamador deberá realizar finalmente el procedimiento SafeArrayDestroy en la matriz devuelta. (Microsoft Visual Basic y Visual Basic para Aplicaciones liberan automáticamente las cadenas a las que hacen referencia las entradas de la matriz).

Ejemplo:

En el ejemplo siguiente se muestra cómo usar el método EnumDirectories para imprimir (en la ventana Inmediato) una lista de todas las carpetas que Visio busca en los complementos.

 
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.