Function: Option Explicit
I want to begin by talking about a function called:
Option Explicit
The Vb Programmer should add this to the very beginning or top of his script to enable the Vb Script to check itself that all the variables are defined, spelled correctly, and that you aren’t re-using them. This is valuable because if you have an error, the VbScript will tell you which line of code the error is at and…
… find variables that aren’t previously Declared. This is important because a miss-spelled variable will appear as a separate-new variable to the VbScript. But is not the variable that you may have meant to use. You can declare the variables with Dim & the variable next to it:
Option Explicit Dim a,b,c
If – ElseIf – Else -Then Statements
Every time you open an If statement, you want to end that if with End If.
If 'Your Code here End If
If you have more than 2 options for your If statement, then you add ElseIf for every additional option. So say you have 3 If statements. It would look like this:
If '← First if statement ElseIf '← 2nd if statement ElseIf '← 3rd if statement End If
Syntax: Note that the single quote ‘ comments out what comes after it.
For each If statement, there must be a Then after it to complete the clause.
If variable=x then Code Here ElseIf variable=c then Code Here ElseIf variable=z then code here End If
You also have the option of using Else instead of ElseIf at the end, if you want the last condition to trigger only if nothing else triggers.
If variable=x then Code Here ElseIf variable=c then Code Here Else code here End If
More on Syntax Errors:
An Else example:
Option Explicit
Dim b
b=MsgBox("Guess a Button",vbAbortRetryIgnore)
If b=vbRetry then
msgbox "correct"
Else
msgbox "wrong"
End If
Output:
ElseIf examples with AND & OR Functions: OR
Option Explicit
Dim b
b=MsgBox("Guess a Button",vbAbortRetryIgnore)
If b=vbRetry Or b=vbAbort then
msgbox "correct"
Else
msgbox "wrong"
End If
Output:
AND example:
Option Explicit
Dim a,z
a=MsgBox("Guess a Button",vbyesno,1)
z=MsgBox("Guess another Button",vbyesno,2)
If a=vbyes And z=vbyes then
msgbox "correct",vbinformation
Else
msgbox "wrong",vbCritical
End If
Output:
