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.