Método Application.EnumDirectories (Visio)

Retorna uma matriz nomeando as pastas que o Microsoft Visio pesquisaria, dada uma lista de caminhos.

Sintaxe

expressão. EnumDirectories (PathsString, NameArray())

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
PathsString	Obrigatório	String	Uma sequência de caracteres de caminhos completos ou parciais separados por ponto-e-vírgulas.
NameArray()	Obrigatório	String	Parâmetro externo. Uma matriz que recebe os nomes das pastas enumeradas.

Valor de retorno

Nada

Comentários

Várias propriedades do Visio, como AddonPaths e TemplatePaths, aceitam e recebem uma sequência de caracteres interpretada como sendo uma lista de nomes de caminhos (pastas) separada por ponto-e-vírgulas. Quando o aplicativo procura itens nos caminhos nomeados, ele examina as pastas e todas as subpastas.

O objetivo do método EnumDirectories é aceitar uma sequência de caracteres como uma que a propriedade AddonPaths pode produzir e retornar uma lista das pastas que o aplicativo enumera ao processar essa sequência de caracteres.

Se o método EnumDirectories obtiver êxito, NameArray() retornará uma matriz unidimensional de n sequências de caracteres indexadas de 0 a n - 1. Cada sequência de caracteres é o nome totalmente qualificado de uma pasta que existe. A lista nomeia essas pastas designadas na lista de caminhos existente e suas subpastas.

O parâmetro NameArray() é um parâmetro externo alocado pelo método EnumDirectories, e a propriedade é passada de volta ao chamador. Por fim, o chamador deve executar o procedimento SafeArrayDestroy na matriz retornada. (O Microsoft Visual Basic e o Visual Basic for Applications liberam automaticamente as sequências de caracteres referenciadas pelas entradas da matriz.)

Exemplo

O exemplo a seguir mostra como usar o método EnumDirectories para imprimir (na janela Imediata) uma lista de todas as pastas que o Visio pesquisa para 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.