基本思路,就是加载脚本文件,读取它的内容并执行它!
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