VBS で別ファイル実行

VBS で別ファイルの関数を実行したり，変数を参照する。

a.vbs を実行して，その中から b.vbs の関数を実行したり，b.vbs で定義された変数を参照する。

【a.vbs】

    Dim objFs
    Dim objFile
    Dim rtn

    Set objFs = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFs.OpenTextFile("b.vbs")
    ExecuteGlobal objFile.ReadAll()
    objFile.Close
    Set objFile = Nothing

    bvbs_func("a.vbs_abc")

    WScript.Echo B_abc

【b.vbs】

    Dim B_abc
    B_abc = "b.vbs_abc"

    Sub bvbs_func(strValue)

        WScript.Echo strValue

    End Sub

【実行結果】

a.vbs_abc
b.vbs_abc

a.vbs で b.vbs を読み込む。
b.vbs で定義した bvbs_func() を呼び出して "a.vbs_abc" が表示される。
b.vbs で定義して，a.vbs では定義していない B_abc の値もちゃんと "b.vbs_abc" と表示される。

参照