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

233 阅读 0 评论 154 点赞

我是靠谱客的博主魁梧香菇，最近开发中收集的这篇文章主要介绍在一个vbs中包含其他vbs文件的方法，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

asp中 include file 包含其他文件
vbs中

复制代码代码如下:

 Option Explicit  
On Error Resume Next 
Sub include(vbs) 
 Dim fso : Set fso = CreateObject("scripting.FileSystemObject") 
 Dim p : p   = Split(Wscript.ScriptFullName,"\") 
 p(UBound(p))  = vbs 
 p     = Join(p,"\") 
 Dim f : Set f  = fso.OpenTextFile(p) 
 Execute f.ReadAll() 
' ExecuteGlobal f.ReadAll() 
 f.Close() 
 Set f = Nothing 
 Set fso = Nothing  
' Wscript.Echo(p) 
End Sub 

include("1.vbs") 
include("2.vbs") 
'If Err Then 
' Wscript.Echo(Err.description) 
' Wscript.Quit() 
'End If  
Wscript.Echo(a+b) 

1.vbs 
a = 3 

2.vbs 
b = 4 