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