配列なのか判定する時に使用します
結果が配列の場合はTRUE、以外はFALSEを返します
Const int0 = 0
Dim aryCon(0)
Dim aryAct()
ec IsArray(int0)
'[2008/10/09 11:43:13]False
ec IsArray(aryCon)
'[2008/10/09 11:43:13]True
ec IsArray(aryAct)
'[2008/10/09 11:43:13]True
'※動的配列の場合もTrueを返すので判定に使用する際は注意が必要です。
'効率的に処理と条件を組み合わせる場合は・・・
Redim AryAct(0)
For i = 1 To Ubound(AryAct)
'値の取得がない場合は処理をスルーします
Next
'メッセージ表示用
Sub ec(strmsg)
Wscript.Echo "[" & Date & " " & time & "]" & strmsg
end Sub
