[NiOl]

к сожалению, ни один из этих способов не поддерживает /WAIT »

можно добавить MSG с ключем /W

[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

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

[OSArev]

подробнее for /? »

Почитаем, спасибо...

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

у amel27: ,здесь есть очень интересный код для очистки папки.
http://forum.oszone.ru/post-1340319.html#post1340319
Подставь свой путь, воткни в исходный VBS, и всё ОК. Не ленись.
PS:amel27: - отдельное спасибо, мне,как раз подобного образца не хватало

[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

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

[OSArev]

Я рад, что у тебя получилось.Обращайся...