vbs文件共享变量与函数的方法

参考资料：

vbs能否像其他编程语言一样，把写好的代码打包成类库以供调用呢？经过搜索和实验，发现vbs文件之间可以互相调用并共享变量，这样我们就不用再反复地编写轮子了。 以下是一个调用实例：

=====1.vbs开始=====
dim str
str = "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 s
End Sub

include "1.vbs"

Msgbox str
=====2.vbs结束=====

 

运行2.vbs，可以看到弹出对话框:"hello world"。可见，在2.vbs中调用了1.vbs中声明的全局变量。调用函数也是同理。