Example: List folder names

This example prints the names of all subfolders within a specified folder.
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
Provide Feedback
Have questions or feedback about this documentation? Please submit your feedback here.
Normal