動的配列でReDimされたかどうかを知るには？

解決

かべ  2004-04-09 18:13:24  No: 112774  IP: [192.*.*.*]

動的配列を作成して、その後ReDimされたかどうかを知るには
どうすればよいでしょうか？
UBound・LBound関数はエラーになってしまうので・・・。

編集 削除
いな  2004-04-09 18:21:10  No: 112775  IP: [192.*.*.*]

UBoundを応用して

--
Public Function cmnUBound(strAr() As String) As Long
    On Error GoTo cmnUBound_ERR
    
    cmnUBound = UBound(strAr)
    Exit Function

cmnUBound_ERR:
    If Err.Number = 9 Then
        cmnUBound = -1
    End If
    
End Function

とすれば、結果が-1のときにRedimされていない。
という話になります。

編集 削除
かべ  2004-04-09 18:27:47  No: 112776  IP: [192.*.*.*]

ありがとうございました。
この方法でやってみます。

編集 削除