ERROR AL LEER ARCHIVO VACIO... URGENTE
Publicado por Eduardo Yuptón C (96 intervenciones) el 06/07/2005 18:18:55
Hola AMIGOS, sé que Ustedes pueden. Mi problema es: ¿COMO SABER SI UN ARCHIVO (murdoch.dat) esta vacío, por que haciendo las pruebas con un archivo vacío me manda un error "La entrada de datos ha sobrepasado el final de archivo" error 62. PERO NO QUIERO USAR EL EVENTO ERROR por que el program se trunca.
mi programa es:
Private Sub cmdConvertir_click()
Open "c:\dat\Murdoch.dat" For Input As #1
Do
Line Input #1, variable
cad1 = Mid(variable, 1, 30)
fotoch = Mid(cad1, 6, 6)
fec = Mid(cad1, 15, 8)
tip = Mid(cad1, 30, 1)
hr = Mid(cad1, 26, 2) & ":" & Mid(cad1, 28, 2)
DataReloj.Recordset.AddNew
DataReloj.Recordset.Fields("FOTOCHECK") = fotoch
DataReloj.Recordset.Fields("FECHA") = fec
DataReloj.Recordset.Fields("TIPO") = tip
DataReloj.Recordset.Fields("HORA") = hr
DataReloj.Recordset.Fields("FLAG") = 0
DataReloj.Recordset.Update
Loop Until EOF(1)
End sub
mi programa es:
Private Sub cmdConvertir_click()
Open "c:\dat\Murdoch.dat" For Input As #1
Do
Line Input #1, variable
cad1 = Mid(variable, 1, 30)
fotoch = Mid(cad1, 6, 6)
fec = Mid(cad1, 15, 8)
tip = Mid(cad1, 30, 1)
hr = Mid(cad1, 26, 2) & ":" & Mid(cad1, 28, 2)
DataReloj.Recordset.AddNew
DataReloj.Recordset.Fields("FOTOCHECK") = fotoch
DataReloj.Recordset.Fields("FECHA") = fec
DataReloj.Recordset.Fields("TIPO") = tip
DataReloj.Recordset.Fields("HORA") = hr
DataReloj.Recordset.Fields("FLAG") = 0
DataReloj.Recordset.Update
Loop Until EOF(1)
End sub
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0