Last Updated 2015/01/25
 Programming Tips  VBS  索 引 
VBS で別ファイル実行
2015/01/25

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" と表示される。


参照
前後のTips
VBS で別ファイル実行

DSS ProgrammingTipsCGI Ver2.00