ERROR: Input past end of file

[mourao 0]

***Com o código abaixo eu tenho acesso ao arquivo de texto exemplo.txt localizado no servidor***dim objeto, cont, total, somaSet objeto = CreateObject("Scripting.FileSystemObject")Set cont = Objeto.OpenTextFile(server.mappath("exemplo.txt"))total = cont.ReadLineresponse.Write(total)cont.close ***se eu altero o código para ler o mesmo arquivo só que localizado em minha máquina... dim objeto, cont, total, somaSet objeto = CreateObject("Scripting.FileSystemObject")Set cont = Objeto.OpenTextFile("c:\exemplo.txt",1,true,false)total = cont.ReadLineresponse.Write(total)cont.close ...ele me dá o ero abaixo***Microsoft VBScript runtime error '800a003e' Input past end of filePS: imagino que o cursor que lê o arquivo de texto esteja se perdendo, mas porque? e como resolver?André

[Salgado 4]

Troca essa linha:

Set cont = Objeto.OpenTextFile("c:\exemplo.txt",1,true,false)

Por essa:

Set cont = Objeto.OpenTextFile("c:\exemplo.txt",1,true,0)

Pelo que pude notar foi uma pequena falha nos parametros adinionais.

[mourao 0]

mudei e ainda continua dando o memso erro...dim objeto, cont, total, somaSet objeto = CreateObject("Scripting.FileSystemObject")Set cont = Objeto.OpenTextFile("c:\exemplo.txt",1,true,0)total = cont.ReadLineresponse.Write(total)cont.close

[Salgado 4]

Existe algo no arquivo para ser lido?

[mourao 0]

Claro, bastante coisa...