[VBS] VBScript 에서 include 효과를 내는 ExecuteGlobal 서브루틴

텍스트 문장 그대로를 스크립트 명령으로 해석하여 실행해준다.

Dim result : result = 0
Dim a : a = 5
Dim b : b = 10
ExecuteGlobal "result = a + b"
Speak result

외부 스크립트를 인클루드 하듯 실행

Dim fsObj : Set fsObj = CreateObject("Scripting.FileSystemObject")
Dim vbsFile : Set vbsFile = fsObj.OpenTextFile("myfunctions.vbs", 1, False)
Dim myFunctionsStr : myFunctionsStr = vbsFile.ReadAll
vbsFile.Close
Set vbsFile = Nothing
Set fsObj = Nothing
ExecuteGlobal myFunctionsStr

http://www.gwmicro.com/mediawiki/index.php/Using_ExecuteGlobal_to_Include_VBScript_Code