[Resolvido] Erro ao Usar EOF

[Luis Barbosa 0]

Bom dia, estou com um probleminha, eu crio um arquivo texto usando o FSO, ai tenho uma parte do código que lê as linhas desse arquivo, mais a condição é pra ele ler enquanto nao chegar o seu fim... e da erro nessa parte...

 

Microsoft VBScript runtime error '800a01a8'

Object required: 'arquivo'

 

Set fp = server.CreateObject("scripting.FileSystemObject")
arquivo= request.serverVariables("APPL_PHYSICAL_PATH") & "arquivo.txt"
Set Out=fp.OpenTextFile(Server.MapPath("arquivo.txt"),2, True)
.
.
.
Do While arquivo.eof = false		   <------------ aqui ta dando erro...
retorno = "retorno" & arquivo.ReadLine(128)
Loop
arquivo.close

[hargon 64]

Utiliza

Do While arquivo.AtEndOfStream

[Luis Barbosa 0]

Putz nao funcionou =(

 

mesmo erro tmb =/

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'arquivo'

[CaBo GeL 0]

tenta:

 

While Not arquivo.eof

e substitua o LOOP por WEND

 

at+

[Luis Barbosa 0]

Arrumei, tinham 2 erros maiores...

 

qndo ele pedia o objeto arquivo nao funcionava pq eu abri ele com a variavel Out... assim:

Set Out=fp.OpenTextFile(Server.MapPath("arquivo.txt"),2, True)

 

intao tinha que ser Out.eof... ou seus derivados...

 

e o segundo erro é que o eof eh considerado leitura e no set, ta definido como 2 = only write.. intao eu fexando esse out e abrindo um novo com 1 e chamando o Out em vez do arquivo funcionou numa boa :)

 

vlw a ajuda ae galera

[CaBo GeL 0]

Então beleza!!

 

parabéns!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[sodate 0]

Bom dia, estou com um probleminha, eu crio um arquivo texto usando o FSO, ai tenho uma parte do código que lê as linhas desse arquivo, mais a condição é pra ele ler enquanto nao chegar o seu fim... e da erro nessa parte...

 

Microsoft VBScript runtime error '800a01a8'

Object required: 'arquivo'

 

Set fp = server.CreateObject("scripting.FileSystemObject")
arquivo= request.serverVariables("APPL_PHYSICAL_PATH") & "arquivo.txt"
Set Out=fp.OpenTextFile(Server.MapPath("arquivo.txt"),2, True)
.
.
.
Do While arquivo.eof = false		   <------------ aqui ta dando erro...
retorno = "retorno" & arquivo.ReadLine(128)
Loop
arquivo.close

 

mas onde você está criando o objeto arquivo e falando que ele é do tipo recordset?

[Mário Monteiro 179]

Ja foi resolvido sodate