redimensionar una array tipo type

[ebu]

Sub deitura(neremodel As object)

Dim a As String
Dim aText() As String, s As String, variable As String
Dim k As Long

a = neremodel.GetPathName 'a es un array de objetos


aText = Split(a, "\")
s = aText(UBound(aText))
variable = Left(s, InStr(s, ".") - 1)

ReDim Preserve matrix(k)
matrix(k).nombre = variable
k = k + 1

End Sub


Sub contar(neremodel As object)
Dim i As Integer, cop As Integer
Dim vConfigName As Variant

cop = neremodel.GetConfigurationCount'cop as integer
ReDim Preserve matrix(k)
matrix(k).cantidad = cop

vConfigName = neremodel.GetConfigurationNames 'array tipo string

For i = 0 To UBound(vConfigName)
ReDim Preserve matrix(i)
matrix(i).confi = vConfigName(i)
Next i

End Sub