DeltreeFSO

Public Sub DeleteFolderTree(ByVal vFolder As String)
Dim FSOAs FileSystemObject
Dim FoldersObj As Folders
Dim FolderObj As Folder
Set FSO = New FileSystemObject

If Not FSO.FolderExists(vFolder) Then
Set FSO = Nothing
Exit Sub
End If

Set FolderObj = FSO.GetFolder(vFolder)
Set FoldersObj = FolderObj.SubFolders

For Each FolderObj In FoldersObj
DeleteFolderTree FolderObj.Path
Next FolderObj

On Error Resume Next

Kill vFolder & "\*.*"
RmDir vFolder

Err.Clear
On Error Goto 0

Set FolderObj = Nothing
Set FoldersObj = Nothing
Set FSO = Nothing
End Sub