Visio) (Application.EnumDirectories 方法

會傳回陣列，以命名 Microsoft Visio 會搜尋的資料夾，並提供路徑清單。

語法

運算式。EnumDirectories (PathsString， NameArray () )

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
PathsString	必要	字串	以分號分隔之完整路徑或部分路徑的字串。
NameArray ()	必要	字串	輸出參數。 會接收列舉之資料夾名稱的陣列。

傳回值

無

註解

AddonPaths和TemplatePaths等數個 Visio 屬性會接受並接收字串，並將其解譯為路徑清單， (資料夾) 名稱以分號分隔。 當應用程式在具名路徑中尋找專案時，它會查看資料夾及其所有子資料夾。

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 支援與意見反應。