Programación General > Visual Basic 6.0 e inferiores

 Problemas Para Abrir Archivos

(1/1)

karen81:
:( 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
--- Citar ---file = Input(LOF(fichero), fichero)
--- Fin de la cita ---
aparece el error '62' en tiempos de ejecucion:
La entrada ha sobrepasado el final del archivo
¿por que ocurre esto? :huh:

si alguien sabe, se lo agredeceria mucho. gracias :hola:

la rutina es la siguiente

--- Código: Text ---Private Sub Command1_Click()CommonDialog1.ShowOpen'abre el fichero para leerfichero = FreeFileOpen CommonDialog1.FileName For Input Access Read As #fichero' Leer la información del ficherofile = Input(LOF(fichero), fichero)Text1.Text = filetama = Len(file)End Sub 

karen81:
:lol: Pues me dijeron que este error se produce entre otras razones por la existencia de caracteres raros en el archivo a abrir, por si alguien se encuentra con este mismo problema, la solucion es muy simple solo sustitui:

--- Código: Text ---Open CommonDialog1.FileName For Input Access Read As #fichero   por

--- Código: Text ---Open CommonDialog1.FileName For Binary Access Read As #fichero  
y solucionado el problema :comp:

Navegación

[0] Índice de Mensajes