Buenas
Soy completamente novato en java

Tengo este código en VBS y necesito pasarlo a Java
He intentado varias soluciones para poder realizar Redim y Redim Preserve, pero no me ha funcionado ninguna, no lo debo haber realizado bien.  
Alguien me presta una ayuda
Muchas gracias por adelantado

Dim cControls
set cControls = New controles
 
 ' As long as there are entries in the recordset
	NumFilas = 0
	Do While iStatus = 0
        		'Joan 15/05/2007 Quito todos los resume Next
		'On Error Resume Next		
		If NumFilas = 0 then
			NumFilas = 1
			Redim cControls (NumFilas)
			'NumFilas = UBound(cControls,1)
		Else
			NumFilas = NumFilas + 1
			Redim Preserve cControls (NumFilas)
			NumFilas = UBound(cControls,1)
		End if
		Set cControls(NumFilas) = new controles
 
		' Get the Fieldname
		cControls(NumFilas).ITEM_NAME = oRes.Fields("v_nomitem")
		' Get the type of the mergefield
		cControls(NumFilas).ITEM_TYPE = oRes.Fields("v_type")
		' Get the name of the mergefield
		cControls(NumFilas).ITEM_LABEL = oRes.Fields("v_label")
		cControls(NumFilas).ITEM_CODETABLE = oRes.Fields("v_codetable")
		cControls(NumFilas).ITEM_CODEFELD = oRes.Fields("v_codefeld")	
		iStatus = oRes.readnext
	Loop
 
 

[MOD] Para publicar codigo, usa etiquetas GeShi, Gracias.