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
网站建设 IT知识 IT知识教程 在一个vbs中包含其他vbs文件的方法 
最新文章
热门文章
猜你喜欢
