Example: Remove a folder

This example deletes all subfolders within the specified folder. This also deletes all its subfolders and tags.
Sub RemoveFolders(sFolderName As String)
On Error GoTo Err_Handler
Dim oFolder As Folder
Dim oFolders As Folders
Set oFolder = TagDB.GetFolder(sFolderName)
Set oFolders = oFolder.Folders
'Delete the subfolders in specified folder.
Do While oFolders.Count > 0
oFolders.Remove 1
Loop
'Release resources associated with the objects.
Set oFolder = Nothing
Set oFolders = Nothing
Exit Sub
Err_Handler:
'Release resources associated with the objects.
Set oFolder = Nothing
Set oFolders = Nothing
MsgBox "Error removing folders." & vbCrLf & vbCrLf & _
Err.Description, vbExclamation, " RemoveFolders"
End Sub
Provide Feedback
Have questions or feedback about this documentation? Please submit your feedback here.
Normal