Bueno chicos la verdad es que recién estoy empezando a ver archivos, por lo que me cuesta todavía, lo que quiero hacer es un programa como el siguiente:



Quiero que vaya cargando los datos en un archivo aleatorio, y la primera vez lo ponga en la primera línea del archivo, la segunda vez que coloca datos en la línea siguiente (la segunda) y así sucesivamente

Este es el código que tengo pero no me funciona (aparte la edad en el archivo se ve mal, se ve así)

Public Type Persona
    Nombre As String * 10
    Apellido As String * 10
    Edad As Byte
End Type
 
Private Sub cmdAceptar_Click()
 
Dim Alumno As Persona
Static i As Byte: i = 1
 
Open App.Path + "\datos.dat" For Random As #1 Len = Len(Alumno)
 
Alumno.Nombre = txtNombre.Text
Alumno.Apellido = txtApellido.Text
Alumno.Edad = txtEdad.Text
 
Put #1, i, Alumno
 
Close #1
 
i = i + 1
 
End sub
 

Alguien me puede decir como hago que me grabe los datos una línea abajo de otro y por qué los números se me ven en el archivo como puse en la imagen??

Gracias!

Claro pero eso no es acceso aleatorio, yo lo que ando buscando es poder hacerlo con archivos de acceso aleatorio

Gracias igual! A ver si alguien me puede dar una mano