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.
Aquí tienes el código necesario para leer todo el archivo txt de una sola pasada, si deseas leerlo por cada línea debes de hacer un bucle hasta llegar al final y leer cada linea con la orden ReadLine en vez de ReadAll
Dim tx as string Set tfr = fs.OpenTextFile("Nombre del fichero.txt", 1, 0) tx = tfr.ReadAll