在一个vbs中包含其他vbs文件的方法
摘要：asp中includefile包含其他文件vbs中复制代码代码如下:OptionExplicitOnErrorResumeNextSubin...
asp中includefile包含其他文件
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
【在一个vbs中包含其他vbs文件的方法】相关文章：
上一篇：
提供个可以显示农历的VBS代码
下一篇：
用vbs实现定时运行web文件的方法