[aggressor_]

OSArev,

Код:

Set objShellApp = CreateObject("Shell.Application")
objShellApp.Open("C:\Program Files\The KMPlayer\Temp")
WScript.Sleep 500
result = MsgBox ("ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ УДАЛИТЬ ПАПКУ?", vbYesNo, "Удаление папки.")
Select Case result
 Case vbYes 
  Set FSO = CreateObject("Scripting.FileSystemObject") 
      FSO.DeleteFolder "C:\Program Files\The KMPlayer\Temp"
  WScript.Quit
   Case vbNo
  WScript.Quit
End Select

А можно подкорректировать, чтобы не папку удалял, а только содержимое?