Vereis tengo un archivo de texto, con 18 lineas, en cada linea un valor numerico y lo queria es abrir ese archivo de texto y cargarlo en un array, para luego poder usarlo.
Yo lo he planteado asi:
Código
Sub leer_archivo() Dim faa As Integer Dim Array_D(1 To 18) As String * 60 Open Final For Input As #faa Array_D = Input(LOF(faa), #faa) Close #faa Label1.Text = Label1.Text & Array_D(1) Label2.Text = label2.Text & Arrai_D(1) End Sub
Y esque no se si es porque el array no acepta recibir datos o asi o hay algo mal declarado o no se.
un saludo