Error 14 "Espacio insuficiente para cadenas"
Preciso abrir un txt plano de varias lineas de texto.
dim str as variant, inivar as variant
dim cont as integer
cont = 0
inivar = freefile
open "path" for input AS inivar
while not eof(inivar)
cont = cont +1
line input #inivar,str 'En esta linea se exhibe el error
wend
close# inivar
dim str as variant, inivar as variant
dim cont as integer
cont = 0
inivar = freefile
open "path" for input AS inivar
while not eof(inivar)
cont = cont +1
line input #inivar,str 'En esta linea se exhibe el error
wend
close# inivar