uBound y dimension de array vacio

[PosProdukcion]

Si uBound me da la ultima posicion de un array...

¿Como distingo entre un array vacío y un array con un elemento? El primero, con uBound me da error, el segundo me da 0

IsArray(variable) me da true, aunque la variable no contenga elementos

¿Como detectar un array inicializado como tal pero que no tiene elementos?

Gracias

[Kelpie]

Ahora no puedo probarlo pero igual te vale con IsEmpty(variable)

[PosProdukcion]

No funciona, el solo hecho de haber declarado Dim arr() me devuelve False con IsEmpty()

[PosProdukcion]

Será esto lo único que se puede hacer para saber si un array está vacío????

Código:

       On Error Resume next
        cuantos = uBound(kk) + 1
        If err.number <> 0 Then
            cuantos = 0
            err.number = 0
        End If
        On error goto 0

Pues vaya un lenguaje de programación

[tammander]

Yo uso esta funcion, que sirva "pa tó"

Código:

' Chequea si la variable esta vacia (sea del tipo que sea)
Public Function IsBlank(byref TempVar)
    dim tmpType
    IsBlank = False
    select case VarType(TempVar)
        case 0, 1 '--- Empty & Null
            IsBlank = True
        case 8 '--- String
            if Len(TempVar) = 0 then
                IsBlank = True
            end if
        case 9 '--- Object
            tmpType = TypeName(TempVar)
            If (tmpType = "Nothing") Or (tmpType = "Empty") Then
                IsBlank = True
            End If
        case 8192, 8204, 8209 '--- Array
            if UBound(TempVar) = -1 then
                IsBlank = True
            end if
    end select
End Function

Un saludo