示例：列出文件夹名称

Sub GetFoldersItem(sFolderName As String)
Dim oFolder As Folder
Dim oFolders As Folders
'Navigate to the specified folder.
Set oFolder = TagDB.RootFolder.Folders.Item(sFolderName)
'Get the folders collection.
Set oFolders = oFolder.Folders
'Prints the folder's sibling names.
For Each oFolder In oFolders
Debug.Print vbTab & oFolder.Name
Next oFolder
'Release resources associated with the objects.
Set oFolder = Nothing
Set oFolders = Nothing
End Sub