12 lines
No EOL
312 B
Text
Executable file
12 lines
No EOL
312 B
Text
Executable file
result = MsgBox ("Êtes-vous sûr ?", vbInformation + vbYesNo ,"Areyousure?")
|
|
|
|
Select Case result
|
|
Case vbYes
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "exploreryes.vbs"
|
|
|
|
Case vbNo
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "explorerwindows.vbs"
|
|
|
|
End Select |