1 reply to this topic

[_UsP_]

Tipo. Gostaria de saber porque está dando esse erro:

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A0005)
Chamada de procedimento ou argumento inválido
/SoSASP/CodigosFontes/FSO/CriarArquivo.asp, line 67

O script é esse:

Nome = Replace(Request("nome"),"'","''")
Texto = Replace(Request("conteudo"),"'","''")
sqlVerificar = "Select*From Arquivos WHERE arquivo='"&nome&".txt'"
Set Verificar = Conexao.Execute(sqlVerificar)
if not Verificar.eof then
Response.Redirect "index.asp?Erro=1"
else
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Caminho = Server.MapPath(Nome&".txt")
Set CriarArquivo = FSO.OpenTextFile(Caminho,2,TRUE,2)
CriarArquivo.WriteLine(Texto)
Session("NomeArquivoAlvo") = Nome&+".txt"
sqlInserir = "INSERT INTO Arquivos(arquivo) VALUES ('"&nome&".txt')"
Set Inserir = Conexao.Execute(sqlInserir)
Response.Redirect "index.asp"
end if

Vlw ae
Aguardo resposta

[_UsP_]

AE galera....resolvi o problema. POrem ainda não aceito esssa sintaxe ta errada!
Set CriarArquivo = FSO.OpenTextFile(Caminho,2,TRUE,2)

Mais eu fiz assim:
Set CriarArquivo = FSO.CreateTextFile(Caminho,TRUE)

vlw ae
E maus ter postado assim... sem antes analizar...