erro!

[johnatan 0]

Type mismatch: 'ubound'

porque isso? ele diz que esse codigo esta errado pq?

 

 

public Property Get Files

Dim cItem, OutItem, ItemCounter

Set OutItem = New cFormFields

ItemCounter = 0

if m_Count > 0 then

For ItemCounter = 0 To Ubound(m_Keys)

Set cItem = m_Items(ItemCounter)

if cItem.IsFile then

OutItem.Add m_Keys(ItemCounter), m_Items(ItemCounter)

end if

 

 

rapido!!! pelo amor de deus

[sosnilc 0]

Esta dizendo que m_Keys não é um array ..

[johnatan 0]

hehe!né naum veio! é uma array sim!ubound pega o maior valor da array!mais valeu já descobri o erro!é que este paremetro só é aceito no vb6! t+