Option Explicit

Sub TestDeleteFolder()

Dim res As Boolean
res = DeleteFolder("d:\temp\123")
Debug.Print res

End Sub

Private Function DeleteFolder(FolderPath As String) As Boolean

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

FolderPath = fso.GetAbsolutePathName(FolderPath)
If fso.FolderExists(FolderPath) Then
    fso.DeleteFolder FolderPath, True
    DeleteFolder = True
End If

Set fso = Nothing

End Function

Option Explicit

Sub TestShellDelete()

Dim wrd As Object
Dim doc As Object
Dim sPath As String
Dim sDoc As String

sPath = "d:\temp\123\"
sDoc = "1.docx"

Set wrd = CreateObject("Word.Application")
wrd.Visible = True
Set doc = wrd.Documents.Add
doc.SaveAs2 sPath & sDoc

Shell ("cmd /c RD /S /Q " & Chr(34) & sPath & Chr(34))

End Sub