Example: Get all folders under the root folder

This example prints the names of all folders in the root folder in the tag database.

Sub ShowSubFolders()
Dim oFolders As Folders
Dim oFolder As Folder
'Get the folders in the Root folder.
Set oFolders = TagDB.RootFolder.Folders
Debug.Print
Debug.Print "The Root folder contains the following sub-folders:"
Debug.Print
'Print the name of each folder in the collection.
For Each oFolder In oFolders
Debug.Print vbTab & oFolder.Name
Next oFolder
'Release resources associated with the objects.
Set oFolders = Nothing
Set oFolder = Nothing
End Sub

Examples

RootFolder property

Provide Feedback

Have questions or feedback about this documentation? Please submit your feedback here.