vbsrcipt begginner
Posted: 24 Jul 2012 06:22
I am just learning VBscript. I am just learning a Is trying this but for some reason It doesn't work. It said need a end statement. Here Is the code so far:
option Explicit
Dim objshell
Dim c1
Dim c2
set ObjShell = CreateObject("WScript.shell")
c1=msgbox"do you want to open paint" ,36, "Run a program"
If c1 = 6 then
objshell.Run "mspaint.exe"
ElseIf c1 = 7 then
c2 =msgbox("do you want to open music" ,36, "Open dolder"
End If
Can you tell me what I did wrote so far?
option Explicit
Dim objshell
Dim c1
Dim c2
set ObjShell = CreateObject("WScript.shell")
c1=msgbox"do you want to open paint" ,36, "Run a program"
If c1 = 6 then
objshell.Run "mspaint.exe"
ElseIf c1 = 7 then
c2 =msgbox("do you want to open music" ,36, "Open dolder"
End If
Can you tell me what I did wrote so far?