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

最新推荐文章于 2025-03-01 08:37:43 发布

蜜汁小强

最新推荐文章于 2025-03-01 08:37:43 发布

阅读量4.2k

点赞数 1

本文链接：https://blog.youkuaiyun.com/wxqee/article/details/9992447

版权

VBScript 同时被 3 个专栏收录

2 篇文章

订阅专栏

include

1 篇文章

订阅专栏

vbs

1 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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