No se mucho de visual basic, por lo que en este foro me dieron esta rutina para abrir archivos, funciona, pero a veces no me abre los archivos, esto ocurre cuando los archivos estan compuestos de caracteres raros (como estoy haciendo un codificador, obtengo todo tipo de caracteres ascii), cuando llega a la instruccion
file = Input(LOF(fichero), fichero)
aparece el error '62' en tiempos de ejecucion:
La entrada ha sobrepasado el final del archivo
¿por que ocurre esto?
si alguien sabe, se lo agredeceria mucho. gracias
la rutina es la siguiente
Private Sub Command1_Click()
CommonDialog1.ShowOpen
'abre el fichero para leer
fichero = FreeFile
Open CommonDialog1.FileName For Input Access Read As #fichero
' Leer la información del fichero
file = Input(LOF(fichero), fichero)
Text1.Text = file
tama = Len(file)
End Sub
