Ficheros directos y secuenciales

Jorge
16 de Enero del 2004
Hace poco que he empezado con visual basic y tengo un problema. Creo 2 ficheros de 10000 registros, secuencialmente y mediante acceso directo, tengo que hacer la busqueda del ultimo registro de cada fichero, tambien secuencialmente y por acceso directo. Todo eso lo tengo hecho. El problema es al controlar el tiempo que tarda cada uno de los metodos en encontrar el ultimo registro. He probado con dos Timers ( uno para cada fichero ), pero no funciona.
Alguien sabe otro metodo para hacerlo? Gracias

sdemingo
16 de Enero del 2004
Hola,


Private Sub Form_Load()

Dim horainicio As Date
Dim horafinal As Date
Dim i As Double

horainicio = Time
For i = 0 To 99999999
' Aquí iría tu búsqueda
Next i
horafinal = Time - horainicio
MsgBox horafinal
End Sub

Saludos
sdemingo