首页 > 代码库 > vbs文件共享变量与函数的方法

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

2024-07-04 08:59:10   224人阅读

参考资料：

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
=====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中声明的全局变量。调用函数也是同理。


联系
我们