在VBScript中，像C一样使用include一个.vbs脚本

最新推荐文章于 2021-05-19 21:25:02 发布

原创最新推荐文章于 2021-05-19 21:25:02 发布 · 4.3k 阅读

4 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#VBScript #vbs

收录于

VBScript 同时被 3 个专栏收录

2 篇文章

订阅专栏

include

1 篇文章

订阅专栏

vbs

1 篇文章

订阅专栏

本文介绍了一种在VBS中加载和执行脚本文件的方法，通过创建文件系统对象来读取指定路径下的脚本文件内容，并利用内置函数执行这些脚本。此外，还提供了一个用于获取当前工作目录的技巧，以便可以使用相对路径加载脚本。

基本思路，就是加载脚本文件，读取它的内容并执行它！

Include "C:\workspace\vbs\Libraries\MySQLDB.vbs"

Sub Include(sInstFile) 
	Dim oFSO, f, s 
	Set oFSO = CreateObject("Scripting.FileSystemObject") 
	Set f = oFSO.OpenTextFile(sInstFile) 
	s = f.ReadAll 
	f.Close 
	Set f = Nothing
	Set oFSO = Nothing
	ExecuteGlobal s 
End Sub

加上获取当前路径的功能，这样就可以使用相对路径了：


Dim strWorkDir 
strWorkDir = Left(WScript.ScriptFullName,instrrev(WScript.ScriptFullName,"\")-1)

Include strWorkDir & "\MySQLDB.vbs"
 
''''''
''' Required
''''''

Sub Include(sInstFile) 
	Dim oFSO, f, s 
	Set oFSO = CreateObject("Scripting.FileSystemObject") 
	Set f = oFSO.OpenTextFile(sInstFile) 
	s = f.ReadAll 
	f.Close 
	ExecuteGlobal s 
	Set f = Nothing
	Set oFSO = Nothing
End Sub