VBScript 基础

1，
Dim a
a=varType(452) '返回2，表示整型        
msgbox a

Dim b
b=varType(#10/19/62#)  '返回7，表示日期
msgbox b

Dim c
c=varType("VbScript") '返回8 ,表示字符型
msgbox c

2，
Dim str
str="hello"
str =str +"World" '字符串连接
msgbox str

Dim str
str="hello"
str =str &"World" '字符串连接
msgbox str
提示： 虽然可以使用"+" 运算符来连接两个字符串，但由于"+"同样用于数值相加运算，所以还是建议使用“&”运算符来连接字符串

3

Function  addmethod(num)
   addmethod=num+100
End Function
Msgbox addmethod(100)
注意：sub和function都是过程，但是sub不能返回值，而function可以返回值

4，
Sub  addmethod(num)
   temp=num+100
   Msgbox temp&"====="
End Sub

 addmethod(10) '调用名为addmethod的子过程
 Call   addmethod(9) '使用Call语句调用名为AddMethod的子过程
注意：如果使用Call语句，则需要把参数使用括号括起来

5，
Dim x ,y
x=PathFinder.Locate("Parameters.mtr")
Msgbox x
PathFinder 对象的Locate 方法来查找某个文件所在目录全路径