在一个vbs中包含其他vbs文件的方法

OptionExplicit
OnErrorResumeNext
Subinclude(vbs)
Dimfso:Setfso=CreateObject("scripting.FileSystemObject")
Dimp:p=Split(Wscript.ScriptFullName,"\")
p(UBound(p))=vbs
p=Join(p,"\")
Dimf:Setf=fso.OpenTextFile(p)
Executef.ReadAll()
''ExecuteGlobalf.ReadAll()
f.Close()
Setf=Nothing
Setfso=Nothing
''Wscript.Echo(p)
EndSub

include("1.vbs")
include("2.vbs")
''IfErrThen
''Wscript.Echo(Err.description)
''Wscript.Quit()
''EndIf
Wscript.Echo(a+b)

1.vbs
a=3

2.vbs
b=4