Olá, estou tentando escrever e salvar um arquivo .txt com asp mas estou tendo problemas! Estou utilizando o seguinte código:
<HTML><HEAD><TITLE>Componente File Access</TITLE></HEAD>
<BODY>
<!--#include file="fobjvbs.inc"-->
<%
Set objeto= CreateObject("Scripting.FileSystemObjects")
'a linha acima criou uma instância do componente FileAccess
Set gv = objeto.OpenTextFile("c:\test.txt", ForWriting, True, False)
'a linha acima abre o arquivo C:\test.txt para gravação. Caso ele não exista., é criado um. (este código tem exatamente o mesmo efeito do método CREATETEXTFILE.
gv.Writeline("Esta linha foi inserida com o uso do componente FileAccess.")
gv.Close
'a linha acima fecha o arquivo aberto para gravação
objeto=nothing
'a linha acima libera a variável objeto, dessa forma, ela não fica armazenando valores que não serão mais usados após o fechamento do arquivo.
%>
<p>Pronto. Foi gravada a linha acima</p>
</BODY></HTML>
ele cria um arquivos chamado test.txt no servidor e escreve nele um texto....
mas quando fui testar, deu um erro falando que faltava o arquivo fobjvbs.inc
daí procurei no google e achei num forum o código deste arquivo, salvei e envie pro servidor:
Pergunta
Guest Eduardo Barbosa Moreira
Olá, estou tentando escrever e salvar um arquivo .txt com asp mas estou tendo problemas! Estou utilizando o seguinte código:
<HTML><HEAD><TITLE>Componente File Access</TITLE></HEAD> <BODY> <!--#include file="fobjvbs.inc"--> <% Set objeto= CreateObject("Scripting.FileSystemObjects") 'a linha acima criou uma instância do componente FileAccess Set gv = objeto.OpenTextFile("c:\test.txt", ForWriting, True, False) 'a linha acima abre o arquivo C:\test.txt para gravação. Caso ele não exista., é criado um. (este código tem exatamente o mesmo efeito do método CREATETEXTFILE. gv.Writeline("Esta linha foi inserida com o uso do componente FileAccess.") gv.Close 'a linha acima fecha o arquivo aberto para gravação objeto=nothing 'a linha acima libera a variável objeto, dessa forma, ela não fica armazenando valores que não serão mais usados após o fechamento do arquivo. %> <p>Pronto. Foi gravada a linha acima</p> </BODY></HTML>ele cria um arquivos chamado test.txt no servidor e escreve nele um texto.... mas quando fui testar, deu um erro falando que faltava o arquivo fobjvbs.inc daí procurei no google e achei num forum o código deste arquivo, salvei e envie pro servidor:<% '=============================================================== ' Type Info: IOMode, TypeInfo Version 0.000 ' GUID: {00000000-0000-0000-0000-000000000000} ' LCID: 0X00000000 ' TypeKind: enum '--------------------------------------------------------------- ' Variable/Constant: ForReading ' Const ForReading = 1 ' Variable/Constant: ForWriting ' Const ForWriting = 2 ' Variable/Constant: ForAppending ' Const ForAppending = 8 '=============================================================== ' Type Info: Tristate, TypeInfo Version 0.000 ' GUID: {00000000-0000-0000-0000-000000000000} ' LCID: 0X00000000 ' TypeKind: enum '--------------------------------------------------------------- ' Variable/Constant: TristateTrue ' Const TristateTrue = -1 ' Variable/Constant: TristateFalse ' Const TristateFalse = 0 ' Variable/Constant: TristateUseDefault ' Const TristateUseDefault = -2 ' Variable/Constant: TristateMixed ' Const TristateMixed = -2 %>mas agora está dando outro erro:
Microsoft VBScript runtime error '800a01ad'
ActiveX component can't create object: 'Scripting.FileSystemObjects'
/escreve_txt.asp, line 5
alguém poderia me dizer o significado deste erro? ou se os códigos estão corretos???
obrigado!
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.