Fso

[Guest - André -]

Quero ler um arquivo de texto que está na minha máquina via ASP, sei que é um código simples mas não sei o que está faltando pois sempre me dá a mensagem file not found. O arquivo está no local especificado mas assim mesmo continua dando a mensagem.

Dim objFSO

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

Dim objTextStream

const strNomedoarquivo = "..\exemplo.txt"

const fsoLeitura = 1

If objFSO.FileExists(strNomedoarquivo) then

Set objTextStream = objFSO.OpenTextFile(strNomedoarquivo, fsoLeitura)

Response.Write "O conteúdo do arquivo é:"

Do while not objTextStream.EOF

Response.Write objTextStream.ReadLine

loop

objTextStream.Close

Set objTextStream = Nothing

Else

Response.Write strNomedoarquivo & " não existe!"

End If

Set objFSO = Nothing

[Bertolani]

Tente este codigo aqui:

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("c:\inetpub\ftproot\inventory\" & NOME DO ARQ, ForReading)

Do While f.AtEndOfStream <> True

linha=f.readline

Loop

f.Close

fso.deletefile("c:\inetpub\ftproot\inventory\" & InFile)

Neste caso estou deletando o arquivo.....

e o nome do arquivo na é representado por uma variavel..

qualquer coisa manda o codigo ae novamente.

[]´s

Bertolani

[dark0]

hum..

deixa eu ver..

porque você esta usando "../arquvo"

porque o "../" no nome do arquivo?

isso aí ta correto mesmo?

o arquivo txt esta em qual pasta? na mesma do seus asps, ou em outra?

[Victor]

Está sim DARK0, pois o arquivo está em uma pasta antes desse arquivo, ai colocamos .../

Falando sério, não encontrei nenhum erro nesse codigo

[]'s

Victor

[dark0]

Então Victor.

Preste atenção:

A duvida:

- Porque a Mensagem retornada é: Arquivo não Encontrado

o que eu falei?

- porque o "../" no nome do arquivo?

- o arquivo txt esta em qual pasta? na mesma do seus asps, ou em outra?

Então, ele não disse se está em um diretorio anterior. Não parece ter erro no codigo, o único erro que aparenta ter é no caminho do arquivo.

[Victor]

- André -..Posta o erro que está dando aqui, para que possamos te ajudar melhor!!!!

[]'s

Victor

[Guest - andre -]

o ..\ foi mais um dos testes que eu tentei para achar o arquivo, mas já encontrei a solução. Esse código para mim tb estava certo mas ainda não entendi o porque do file not found. Tentei usar ..\ com server.mappath e também o caminho exato do arquivo c:\... e nada adiantou, mas o importante que achei uma outra solução. valeu pela atenção, obrigado.

[dark0]

certo, mas qual solução você usou?

poste aí, para deixarmos de referencia para quem mais precisar.

Ah, cadastre-se no fórum e participe de nossa comunidade!

[Guest - André -]

Na verdade agora vi que estou tendo outro problema, usei um código postado aqui no script brasil e consegui ler o arquivo de texto usando server.mappath. E agora fui tentar usar para ler um arquivo que está em minha máquina e voltou a dar erro. Abaixo está o código. Ao criar o objeto cont eu coloquei para ele ler um caminho que vai ser especificado no formulário e ele voltou a dar o erro Path Not Found, sendo que o arquivo foi selecinado com um botão type="file" tendo assim no seu valor o caminho exato do arquivo que foi selecionado.

dim objeto, texto, cont, total, soma, linha

Set objeto = CreateObject("Scripting.FileSystemObject")

Set cont = Objeto.OpenTextFile(request.Form("p_arquivo"))

total = cont.ReadLine

response.Write(total)

cont.close

Set texto = objeto.OpenTextFile(request.Form("p_arquivo"))

response.write "<div align='center'><center><table width='400'><td>"

Do While texto.AtEndOfStream <> true

linha = texto.ReadLine

if linha = "<" & soma then

for i = soma to total

if linha = "<" & i then

linha = texto.ReadLine

response.write "<tr><td width='100%' align='center'><p>"

response.write "<hr></hr>"

Do While linha <> i & ">"

response.write linha & "<br>"

linha = texto.ReadLine

loop

response.write "</td></tr>"

on error resume next

linha = texto.ReadLine

end if

next

end if

loop

response.write "</td></table></center></div>"

Texto.close

end if

[Guest - andré -]

o código é bem simples, o primeiro ele lê o arquivo sem problemas, já o segundo dá o erro file not found

***PRIMEIRO***

dim objeto, cont, total, soma

Set objeto = CreateObject("Scripting.FileSystemObject")

Set cont = Objeto.OpenTextFile(server.mappath("exemplo.txt"))

total = cont.ReadLine

response.Write(total)

cont.close

***SEGUNDO***

dim objeto, cont, total, soma

Set objeto = CreateObject("Scripting.FileSystemObject")

Set cont = Objeto.OpenTextFile("c:\exemplo.txt",1)

total = cont.ReadLine

response.Write(total)

cont.close

[dark0]

***SEGUNDO***

dim objeto, cont, total, soma

Set objeto = CreateObject("Scripting.FileSystemObject")

Set cont = Objeto.OpenTextFile("c:\exemplo.txt",1,true,false)

total = cont.ReadLine

response.Write(total)

cont.close

tente isso.. adicione o que esta em vermelho..

[mourao]

beleza, acho que to chegando perto, mas agora na hora de ler o arquivo (cont.readline) ele me dá o erro Input past end of file

[dark0]

veja esse link:

http://www.linhadecodigo.com.br/dicas.asp?id_dica=803⊂=5

esse link:

http://www.imasters.com.br/web/conteudo/se...702&codsecao=33

ate mais

[mourao]

Velho não adianta, ou essa merda de ASP ta de perseguição comigo ou eu sou muito burro(mais provável). Acontece que eu utilizei diferentes tipos de código para ler o txt e todos me deram o mesmo erro. Já alterei o arquivo de texto com somente uma linha, usei .readall, .readline, .skipeline de tudo e nada adiantou. É engraçado que em VB eu uso direto leitura de txt e nunca tive algum problema, mas enfim esse erro continua me perseguindo...

Microsoft VBScript runtime error '800a003e'

Input past end of file

[dark0]

hum..

pesquisando sobre seu erro, achei isso:

http://www.imasters.com.br/erro/mostra_glossario74.htm

pelo que parece, você esta acessando o arquivo, e o ponteiro dele se perde, e passa do final..

você deve testar se esta no fim do arquivo..

aí, acho que não deve dar erros