VBA RmDir Method
Here is a simple method to delete the entire folder using VBA
Sub Delete_Folders_FS()
Dim sFolder As String
On Error GoTo Err_Msg
sFolder = "c:\temp\2Bdeleted\"
RmDir (sFolder)
Err_Msg:
If Err.Number <> 0 Then
MsgBox Err.Description
Err.Clear
End If
End Sub