参考资料：
vbs能否像其他编程语言一样，把写好的代码打包成类库以供调用呢？经过搜索和实验，发现vbs文件之间可以互相调用并共享变量，这样我们就不用再反复地编写轮子了。 以下是一个调用实例：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 |
=====1.vbs开始=====dim strstr = "hello world"=====1.vbs结束==========2.vbs开始=====Sub include(sInstFile) Dim
oFSO, f, s Set
oFSO = CreateObject("Scripting.FileSystemObject") Set
f = oFSO.OpenTextFile(sInstFile) s = f.ReadAll f.Close ExecuteGlobal sEnd Subinclude "1.vbs"Msgbox str=====2.vbs结束===== |
运行2.vbs，可以看到弹出对话框:"hello world"。可见，在2.vbs中调用了1.vbs中声明的全局变量。调用函数也是同理。
vbs文件共享变量与函数的方法,布布扣,bubuko.com
原文：http://www.cnblogs.com/pzy4447/p/3726404.html