3.3 引用任何可訪問商店中的任何資料夾

TestFldrChain() 演示瞭如何引用任何可訪問商店中的任何資料夾：

Sub TestFldrChain()

  Dim Fldr As Folder

  Set Fldr = Session.Folders("A").Folders("A2"). _
                           Folders("A21").Folders("A213")

  Debug.Print Join(GetFldrNames(Fldr), "|")

End Sub    

在 TestFldrChain()：A 是商店的名稱; A2 是 A 中資料夾的名稱; A21 是 A2 中資料夾的名稱，A213 是 A21 中資料夾的名稱。

這裡發生了什麼？

Session 有一個屬性 Folders，這是所有可訪問商店的列表。

我在本教程的第 2 部分中使用的 Session.Folders(integer) 允許我在不知道他們的名字時按順序遍歷商店。Session.Folders("A") 允許我在知道其名稱時訪問資料夾。

Session.Folders("A") 是一個資料夾，它也有一個屬性 Folders。

Session.Folders("A").Folders("A2") 允許我訪問商店 A 中的資料夾 A2。

我可以根據需要連結儘可能多的 Folders("x") 到達任何資料夾。如果鏈對於一行來說太長，你可以像我一樣將語句拆分為多行。

在安裝中查詢巢狀最深的資料夾，並用商店和資料夾的名稱替換 A，A2，A21 和 A213。根據需要增加或減少鏈中的資料夾數量。

如果你更新並執行 TestFldrChain()，它將輸出以下內容，但 A，A2 等將被你的資料夾名稱替換：

A|A2|A21|A213