VisualSignt
07 de Marzo del 2004

Al abrir un fichero de texto para leerlo se me bloquea el PC. El archivo es de unos 400kb. Lo que hago es leer el archivo linea a linea. Me gustaría saber si hay algun método para que no me ocurra eso.

kinoscar
07 de Marzo del 2004

Dim muncontabsys As String
Open App.Path & "muncontab.sys" For Input As #1
i = 0
Do While Not EOF(1)
i = i + 1
Input #1, muncontabsys
list1.additem muncontabsys
Loop
Close #1

este codigo abre un archivo el cual lee linea por linea colocando el contenido en un listbox.

espero te sirva
suerte