亲宝软件园·资讯

展开

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

人气:0
想了解在一个vbs中包含其他vbs文件的方法的相关内容吗,在本文为您仔细讲解的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:在一个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


加载全部内容

相关教程
猜你喜欢
用户评论