VBAチェックインデックスの文字列配列は何もありません

Question

特定のインデックスの文字列配列が初期化されていないかどうかを確認する方法が不思議です。

ファイルパスのファイル拡張子を決定するのにSplit関数を使用していますが、拡張子が含まれないことがあります。私のデリミタは "。"なので、エクステンションが提供されている場合のみ、配列インデックス1に値があります。

私はIs Nothing、 ""、IsEmpty、およびvbNullStringは成功しません。

また、配列のサイズを明示的に宣言しましたが、Split関数の値に割り当てることで問題が発生しました。

次のように私のコードの抜粋は次のとおりです。

Dim filePath As String 
Dim stringArr() As String 

filePath = "C:\Users\Sarchwalk\Documents\fileName" 
stringArr() = Split(filePath, ".") 'Problem here if stringArr size has been declared 

If stringArr(1) = "" Then 'Error arises here 
    MsgBox "String array at index 1 is empty" 
End If 

Answer 1

使用UBOUND、

If Ubound(stringArr) = Lbound(stringArr) Then 
    MsgBox "String array at index 1 is empty" 
ElseIf stringArr(1) = "" Then 'Error arises here 
    MsgBox "String array at index 1 is empty" 
End If 

一つだけがある場合、UBOUNDはLBOUNDに等しくなります。そうでなければ、空の文字列もチェックします。