tips

WSH : 外部ファイルのインクルード

以下のようにすることで外部ファイルをインクルードすることができます。

■準備
Const ForReading = 1
    
Dim FileShell
Set FileShell = WScript.CreateObject("Scripting.FileSystemObject")

Function ReadFile(ByVal FileName)
    ReadFile = FileShell.OpenTextFile(FileName, ForReading, False).ReadAll()
End Function

■インクルード例
' グローバルに使用したい場合
Execute ReadFile("stdlib.vbs")
    
Function HogeCalculate(ByVal ...)
    ' 関数( Function or Sub )内でのみ使用したい場合
    Execute ReadFile("mathlib.vbs")
        ...
End Function

...残念ながらこの手法は Execute メソッドの存在しない JavaScript では利用できません。