error 9

[ebu]

buenas, en esta linea me da un error9:subindice fuera de intervalo

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

en ayuda me pone q tiene q ver con la matriz q he declarado.pero q tiene q ver lo primero con lo segundo?thanks!
Private Type datuak
izena As String
kopurua As Integer
konfi As String
End Type

Dim matrix() As datuak

[Insomnia]

Hola

Como has declarado las variables a, aText y s ?

El error de fuera de indice suele darse con matrices o cuando utilizas indices, pero en esa primera parte no veo nada de eso, por eso pregunto de que tipo son esas tres variables.

Agur.

[ebu]

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

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

lo q hace es guardar el nombre de una pieza en variables sabiendo su ruta. lo he usado en otros programas q he exo y nunca me a dado problemas, no se??

[David]

Lo más probable es que la variable "a" esté vacía al llamar a la función Split, ¿has probado poner MsgBox a antes del Split?.

[ebu]

no, no esta vacia. a veces me da error y otras veces no. no se x q...

[David]

Puede que a veces esté vacía y otra veces no .

[ebu]

sq como ando 'cogiendo' objetos de otro programa, aveces, segun el archivo q abra me coge los objetos o no. yo creo q el asunto viene de aí.