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