Метод Application.EnumDirectories (Visio)

Возвращает массив с именами папок, в которых Microsoft Visio будет выполнять поиск со списком путей.

Синтаксис

выражение. EnumDirectories (PathsString, NameArray())

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Строка путей	Обязательный	String	Строка полных или частичных путей, разделенных точкой с запятой.
NameArray()	Обязательный	String	Параметр Out. Массив, который получает перечисляемые имена папок.

Возвращаемое значение

Отсутствует

Примечания

Некоторые свойства Visio, например AddonPaths и TemplatePaths, принимают и получают строку, интерпретируемую как список имен путей (папок), разделенных точкой с запятой. При поиске элементов в именованных путях приложение выполняет поиск в папках и всех их вложенных папках.

Цель метода EnumDirectories состоит в том, чтобы принять строку, например, такую, которую свойство AddonPaths может создать, и вернуть список папок, которые приложение перечисляет при обработке такой строки.

Если метод EnumDirectories работает успешно, NameArray() возвращает одномерный массив из n строк с индексацией от 0 до n - 1. Каждая строка — это полное имя существующей папки. В списке указываются папки, указанные в списке путей, и все их вложенные папки.

Параметр NameArray() является выходным параметром, который выделяется методом EnumDirectories , а владение передается обратно вызывающему объекту. Вызывающий объект должен в конечном итоге выполнить процедуру SafeArrayDestroy для возвращенного массива. (Microsoft Visual Basic и Visual Basic для приложений автоматически освобождают строки, на которые ссылаются записи массива.)

Пример

В следующем примере показано, как использовать метод EnumDirectories для печати (в окне мгновенных данных) списка всех папок, которые Visio ищет для надстроек.

 
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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.