[aggressor_]

Лень тут совершенно ни причём. Безусловно, если я хоть немного понимал во всём этом, я бы не задавал эти вопросы...
Соединив два скрипта (твой и amel27) методом тыка получилось вот это:

Код:

Set objShellApp = CreateObject("Shell.Application")
objShellApp.Open("C:\123")
WScript.Sleep 500
result = MsgBox ("Вы действительно хотите удалить папку?", vbYesNo, "Удаление папки.")
Select Case result
 Case vbYes 

On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFldr = "C:\123"

ClearFolder strFldr

Function ClearFolder(sFldr)
   On Error Resume Next
   Dim oD, cF, cD, oI

   Set oD = objFSO.GetFolder(sFldr)
   Set cF = oD.Files
   Set cD = oD.SubFolders

   For Each oI In cF
      oI.Attributes = 0
      oI.Delete
   Next

   For Each oI In cD
      ClearFolder oI.Path
      oI.Attributes = 0
      oI.Delete
     Next
End Function
WScript.Quit
   Case vbNo
  WScript.Quit
End Select

И самое удивительное, что работает!