在VBScript中，像C一样使用include一个.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