VBScript で C言語風に外部ライブラリ（.vbs）を読み込む

以下の例は、［C:\VBScript\Module］フォルダに保存されている［DateModule.vbs］を読み込む.

IncludeLikeC.vbs

Include "DateModule"

WScript.Echo DateFormat(Date, "yyyymmdd")

Function Include(ByVal mod_name)
    Dim modFolderPath
    modFolderPath = "C:\VBScript\Module"
    With CreateObject("Scripting.FileSystemObject")
        With .OpenTextFile(.BuildPath(modFolderPath, mod_name & ".vbs"))
            ExecuteGlobal .ReadAll
            .Close
        End With
    End With
End Function

※ ExecuteGlobal .ReadAll の部分で『')' がありません』というエラーが出る場合、読み込む外部ファイルのコードに問題（スペルミスやUTF8保存など）があるケースが多い。