RE:URGENTE!! acceso ficheros directos
Yolanda:
Para acceder a un registro en un archivo random o aleatorio, tienes que saber la posicion del registro,, es decir.. el registo 1 se graba en la posicion 1, y asi sucesivamente, para saber la posicion en donde grabar tienes que saber el tamaño del registro (len)
Aca te mando un ejemplo:
Option Explicit
Dim NuevaPosicionRegistro as Integer
'// Aca definis el registro
Type Agenda
Nombre As String * 25
Direccion As String * 25
Telefono As String *20
End Type
'--- asi lo abres
Open "Archivo.ext" For Random As 1 Len = (70)
NuevaPosicionRegistro=(lof(1)/70)+1
'----
Agenda.nombre = txtName.text
Agenda.direccion = txtDireccion.Text
Agenda.telefono = txtTelefono
Put #1, NuevaPosicionRegistro,Agenda
Close #1
'--------------------- ojo si quieres modificar un registro existente
primero tienes que llamarlo con
get#1, Posicion,Registro
y luego actualizar los datos y volver a usar el put#...
Bueno espero que te ayude en algo
Saludos desde Argentina
Daniel