Lendo arquivos .txt - Metodo Readline

[vinicius.gentil 0]

Pessoal, estou lendo o conteudo de um arquivo .txt. Porem quando estou usando o metodo Readline, eles funcionam, mais so estao pegando linhas impares...estao pegando linha sim, linha nao...alguem sabe me explicar o porque??<% dim cf, es, tx set cf=Createobject("scripting.FileSystemObject") set es = cf.getfile(server.MapPath("erros.txt")) set tx= es.OpenAsTextStream(1) While Not tx.AtEndOfStream Linha = Linha & tx.Readline & "<br>"Wendresponse.write Linhatx.close %>

[vinicius.gentil 0]

set tx= es.OpenAsTextStream(1) - alguem sabe o que quer dizer esse "1"???

[jrcardozo 4]

tenta essa função

 

<%Function LerTxt()strCaminho = server.MapPath("arquivo.txt")Const ForReading = 1Set fso = CreateObject("Scripting.FileSystemObject")Set arquivo = fso.OpenTextFile(strCaminho, ForReading, False)Do While arquivo.AtEndOfStream <> TruestrVar = strVar & arquivo.ReadLine Looparquivo.CloseLerTxt = strVarEnd FunctionResponse.Write(LerTxt)%>

esse "1" é uma propriedade que setamos para dizer que o arquivo aberto é para somente leitura