VBScriptの配列変数の初期化確認について

Question

VBScriptで、配列変数が初期化済みなのか、宣言時のままなのか
判定処理を行いたいです。

【例】
Dim arr()

If flg = 1 Then
ReDim arr(2)
arr(0)="aaa"　
End If

★ここで、arr()が定数宣言のままなのか判定をしたい

また、配列変数のErase()で初期化した場合に、
初期化済みかどうかの判定方法についても併せて
ご教授ください。

試したこと

・UBound()で最大インデクスを判定することで、宣言時のままか、初期化済みなのか判定をしましたが、”インデクスが有効範囲ではない"エラーが発生しました。

・変数がNothing かどうかで判定をしましたが、”オブジェクトがありません”エラーが発生しました。

Answer 1

Dim arr() でなく、Dim arr と宣言してはどうでしょう？
初期化は Erase ではなく、Empty を代入します。

Option Explicit

Dim arr

CheckArr(0)
CheckArr(1)

arr = Empty

CheckArr(0)
CheckArr(1)

Sub CheckArr(flg)
	If flg = 1 Then
		ReDim arr(2)
		arr(0)="aaa"
	End If

	If IsEmpty(arr) Then
		MsgBox "Empty"
	Else
		MsgBox arr(0)
	End If
End Sub

Comments

[ramensann3345]

配列変数でなくても、Redimで配列変数に変更ができるのですね。
ありがとうございます。非常に助かりました。

Answer 2

エラー処理で判断するしかなさそうです。

Dim arr()

If flg = 1 Then
    ReDim arr(2)
    arr(0)="aaa"　
End If

On Error Resume Next
MsgBox UBound(arr)
If Err.Number <> 0 Then
    MsgBox "初期化されてません。"
    Err.Clear
End If
On Error GoTo 0

Comments

[ramensann3345]

エラーが起きることを前提に対応するという考えに至りませんでした。
ありがとうございます。