akuma
28 de Junio del 2004

aca hice algo pero no se por que no me reconoce el archivo cuando esta lleno solamente vacio si saben porfavor digan
Private Type t_persona
clave As String
End Type
Private Sub registro()
Dim persona As t_persona
Open App.Path + "texto.txt" For Random As #1
If Not persona Then
MsgBox ("vacio")
Else
MsgBox ("lleno")
End If
Close
End Sub

molen
28 de Junio del 2004

lo primero que tienes que hacer es decirle el tamaño de los registros:
Open App.Path + "texto.txt" For Random As #1 len=len(persona)

y ahora te falta leer el dato con el Get

para saber el número de registros que hay puedes usar:
Lof(1)Len(persona)