Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
private sub command1_click() dim datos,linea,ruta as string ruta="c:\archivo.txt" open ruta for append as 1 while not eof(1) line input #1,linea datos=datos & linea linea="" wend close 1 end sub
Con esto lo que hago es abrir el archivo y leer lo linea a linea, y almacenarlo en la variable datos.