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

时间：2014-05-16 05:03:23 收藏：0 阅读：225

参考资料：

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中声明的全局变量。调用函数也是同理。

vbs文件共享变量与函数的方法,布布扣,bubuko.com