参考资料:
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 Subinclude "1.vbs"Msgbox str
=====2.vbs结束=====
运行2.vbs,可以看到弹出对话框:”hello world”。可见,在2.vbs中调用了1.vbs中声明的全局变量。调用函数也是同理。