Hogyan lehet VBS-ben?

set WShell=CreateObject("WScript.Shell")

fajl="FÁJL ELÉRÉSI ÚTJA"

xx=msgbox("megnyitod a fájlt?",vbYesNo,"progi")

if xx=vbYes then 'ha a válasz igen, akkor

WShell.Run fajl 'futtatja a fájlt

else 'ha a válasz nem igen, akkor

WSCript.Quit(0) 'kilép a programból

end if 'ha/if utasítás vége