[SendMessage]

А так?

Код:

Option Explicit
 
Const ROOT_FOLDER = "D:\"
Const SEARCH_FOLDER = "hl"

Dim strDelFolder
Dim objFSO
Dim RetVal

Set objFSO = CreateObject("Scripting.FileSystemObject")

GetFolders ROOT_FOLDER
If Len(strDelFolder) Then
  RetVal = MsgBox("Вы хотите удалить папку """ & strDelFolder & """," & vbNewLine & _
           "в которой находится искомая папка """& SEARCH_FOLDER & """?", 33, "Удаление папки")
  If RetVal = 1 Then objFSO.DeleteFolder strDelFolder, True
Else
  MsgBox "Папка """ & SEARCH_FOLDER & """ не найдена.", 64, "Удаление папки"
End If

Set objFSO = Nothing

WScript.Quit 0

Sub GetFolders(strFolderName) 
  Dim objSubFolder
    For Each objSubFolder In objFSO.GetFolder(strFolderName).SubFolders 
      If LCase(objSubFolder.Name) = LCase(SEARCH_FOLDER) Then
        strDelFolder = strFolderName
        Exit Sub
      Else 
        GetFolders objSubFolder.Path
      End If 
    Next
End Sub