在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 = NothingSet oFSO = NothingExecuteGlobal 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 = NothingSet oFSO = NothingEnd Sub