Цитата aggressor_:
|
Нужно сначала открыть указанную папку (вывести на экран не содержимое папки, а саму папку развернуть на экране), а затем предложить удаление ( без Y/N, чтобы можно было мышкой нажать окей) »
|
Привет...
А на VBS не пойдет? Мне, тоже как-то надо было открыть папку в BAT, но нехватило терпения искать и я так до сих пор не знаю.
А на VBS, пожалуйста:
Код:
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
