Application.EnumDirectories 方法 (Visio)

返回一个数组，该数组命名 Microsoft Visio 将搜索的文件夹（给定路径列表）。

语法

表达式。EnumDirectories (PathsString， NameArray () )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
PathsString	必需	字符串	由分号分隔的完整路径或部分路径的字符串。
NameArray ()	必需	字符串	out 参数。 接收枚举文件夹名称的数组。

返回值

Nothing

注解

几个 Visio 属性（例如 AddonPaths 和 TemplatePaths）接受并接收解释为由分号分隔的路径（文件夹）名称列表的字符串。 当应用程序查找命名路径中的项目时，它将在文件夹及其所有子文件夹中查找。

EnumDirectories 方法的用途是接受一个字符串（如 AddonPaths 属性可能产生的字符串），并返回在处理这样的字符串时应用程序枚举的文件夹列表。

如果 EnumDirectories 方法成功，则 NameArray() 返回索引为 0 到 n - 1 的 n 个字符串的一维数组。 每个字符串是已存在的文件夹的完全限定名称。 该列表命名在路径列表中指定的且存在的那些文件夹及其所有子文件夹。

NameArray () 参数是由 EnumDirectories 方法分配的 out 参数，并且所有权将传回调用方。 最后，调用方应对返回的数组执行 SafeArrayDestroy 过程。 (Microsoft Visual Basic 和 Visual Basic for Applications自动释放数组的条目引用的字符串。)

示例

以下示例演示如何使用 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。