[Resolvido] Leitura de arquivo txt no servidor FTP

[adsirosr 0]

Olá pessoal,

 

Estou desenvolvendo um sistema de telemetria, e para isso tenho um computador que envia um arquivo txt periodicamente para um servidor FTP.

O problema é que eu não estou conseguindo criar uma página em ASP para inserir a informação contida no arquivo txt.

 

Tanto a página quanto o arquivo txt estão no diretório wwwroot do servidor FTP. Estou tentando usar o seguinte comando:

 

<%
  Const fsoLeitura = 1
  Dim objFSO
  'Instanciar o objeto FSO
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")  

  'Abrir o arquivo texto
  Dim objTextStream
  Set objTextStream = objFSO.OpenTextFile("dados.txt", fsoLeitura)

  'Visualiza  no navegador o conteúdo do arquivo texto
  Response.Write objTextStream.ReadAll

  'Fechar e inicializar os objetos
  objTextStream.Close
  Set objTextStream = Nothing
  Set objFSO = Nothing
%>

Porém quando abro a página para testar, ocorre o erro na linha " Set objTextStream = objFSO.OpenTextFile("dados.txt", fsoLeitura) " dizendo que o arquivo não pôde ser encontrado.

 

Alguém teria uma sugestão de como eu posso fazer a inserção dos dados deste arquivo na minhsa página? Eu também poderia mudar a extenção do arquivo para .htm ou outra, mas não sei o código para inserir um arquivo html também.

[Patrique 0]

faz assim

 

Set objTextStream = objFSO.OpenTextFile(Server.MapPath("dados.txt"), fsoLeitura)

ou coloque o caminho completo

 

Set objTextStream = objFSO.OpenTextFile("c:/inetpub/site/dados.txt", fsoLeitura)

[adsirosr 0]

faz assim

 

Set objTextStream = objFSO.OpenTextFile(Server.MapPath("dados.txt"), fsoLeitura)

ou coloque o caminho completo

 

Set objTextStream = objFSO.OpenTextFile("c:/inetpub/site/dados.txt", fsoLeitura)

 

Funcionou, você um gênio, valeu cara.

[Patrique 0]

Sim sim, sou tatatatatatatatatatatatatatatatatatatatatataraneto do Albert Ainstein.

 

http://forum.imasters.com.br/public/style_emoticons/default/grin.gif