2.3 顶级文件夹

在上面的文件夹窗格示例中，我只列出了三个标准文件夹：收件箱，草稿和已删除邮件。还有其他标准文件夹，你可以根据需要创建自己的文件夹。有些人在收件箱下创建文件夹，但我更喜欢在与收件箱相同的级别创建新文件夹。你的文件夹可以包含子文件夹，这些子文件夹可以拥有自己的子文件夹到任何深度。

以下宏将生成表单列表：

A
   A1
   A2
   A3
B
   B1
   B2
C
   C1
   C2
   C3
   C4

其中 A，B 和 C 是存储，A1，B1，C1 等是 A，B 和 C 中的文件夹。如果 A1，B1，C1 等具有子文件夹，则该宏不会列出它们。访问更深层嵌套的文件夹将在本教程的下一部分中介绍。

Sub ListStoresAndTopLevelFolders()

  Dim FldrCrnt As Folder
  Dim InxFldrCrnt As Long
  Dim InxStoreCrnt As Long
  Dim StoreCrnt As Folder

  With Application.Session
    For InxStoreCrnt = 1 To .Folders.Count
      Set StoreCrnt = .Folders(InxStoreCrnt)
      With StoreCrnt
        Debug.Print .Name
        For InxFldrCrnt = .Folders.Count To 1 Step -1
          Set FldrCrnt = .Folders(InxFldrCrnt)
          With FldrCrnt
            Debug.Print "   " & .Name
          End With
        Next
      End With
    Next
  End With

End Sub