Objeto Response, ASP 0104 (0x80070057) Operação não permitida

[Guest --Nadia --]

Bom dia, estou com um problema e não sei como resolvê-lo. Fiz um script para gravação e leitura de arquivo .txt. Ele está gravando o arquivo com o conteúdo no diretório pedido, o problema é que dá essa mensagem de erro mesmo assim.

Objeto Response, ASP 0104 (0x80070057)

Operação não permitida

/intranet/escreveLeArquivo.asp

Segue o script:

<%

Const ForReading = 1

dim busca

dim cont

Set obj = Server.CreateObject("Scripting.FileSystemObject")

set texto = obj.CreateTextFile("c:\mcif460\novo1.txt",true)

set ler = obj.OpenTextFile("c:\mcif460\novo1.txt",ForReading,false)

texto.WriteLine("Este é a primeira linha de teste para criação de arquivo texto.")

texto.WriteLine("Esta é a segunda linha de teste para criação de arquivo texto.")

texto.WriteLine("Esta é a terceira linha de teste para criação de arquivo texto.")

Response.Write("<center>Conteúdo do Arquivo<BR><BR>")

while not(ler.AtEndOfStream)

busca = cont + 1

cont = cont +1

Response.write(busca&"<BR>")

wend

response.write("<BR>O arquivo possui" & cont & "linhas.")

Set obj = nothing

set texto = nothing

set ler = nothing

%>

Att

Nadia

[webdeveloper]

Em qual linha está dando erro?

[Guest ntsmarques]

Não mostra linha nenhuma, só aparece essa mensagem, mas o engraçado é que grava o arquivo com o texto, mas depois disso aparece a mensagem.

Att

[webdeveloper]

Tente fechar o arquivo texto depois de escrever nele.