[クラスを使って変数を初期化する]

複数の場所で同じ変数を使うようなときは、クラスを使って変数の初期化をすると便利だと思います。

【ソースコード】

[tips0063.vbs]
Option Explicit
On Error Resume Next

Class TEST_CLASS
    Public lngCode
    Public strName
    Public lngArray

    Private Sub Class_Initialize()
        lngCode = 0
        strName = "未定"
        lngArray = Array(3, 2, 1)
    End Sub
End Class

Dim objTestCls      ' テストクラス
Dim lngLoop         ' ループカウンタ

Set objTestCls = New TEST_CLASS
objTestCls.lngCode = 100

WScript.Echo "Code: " & objTestCls.lngCode
WScript.Echo "Name: " & objTestCls.strName
For lngLoop = 0 To UBound(objTestCls.lngArray)
    WScript.Echo "Array(" & lngLoop & "): " & _
        objTestCls.lngArray(lngLoop)
Next

Set objTestCls = Nothing

【実行結果】

C:\> cscript //NoLogo tips0063.vbs
Code: 100
Name: 未定
Array(0): 3
Array(1): 2
Array(2): 1