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