ler arquivo texto, o que está errado!?:(

[rafa-martin 2]

pessoal, estou tentando ler um arquivo texto existente dessa forma:<%Dim FSODim TXT%><%Set mFileSystem = server.createobject("Scripting.FileSystemObject")IF mFileSystem.FileExists(server.mappath("arquvivo.txt")) = true thenSet FSO = Server.CreateObject("Scripting.FileSystemObject") Set TXT = FSO.OpenTextFile(Server.Mappath("arquvivo.txt"))response.write txt.readALL TXT.close Set TXT = Nothing Set FSO = NothingEnd IFSET mFileSystem = nothing%>E não está lendo.porém, acho eu que tenho que chamar ele em uma tabela por exemplo.Alguém pode me ajudar? O que está dando errado?Valeu

[FabricioGomes 0]

como disse no outro forum, arquvivo.txt? deve ser arquivo.txt ok?

[Mário Monteiro 179]

como disse no outro forum, arquvivo.txt? deve ser arquivo.txt ok?

bem neste caso só escreverá algo se o arquivo existir e tiver algum conteudo, caso você queira saber se o arquivo existe neste IF você acrescenta um ELSE para quando o mesmo não existir dar uma mensagem de erro

[rafa-martin 2]

masi cara eu arrumei o código.quando eu mando atualizar a página, a página demora muito para abrir. se eu tirar o código ele carrega normalmente.porque?

[Mário Monteiro 179]

não sei cara

 

mas este codigo que você postou é igual a alguns exemplos que postei aqui

 

inclusive uso ele

 

então cara ele ta certo, verifica a escrita do nome do arquivo ou então adiciona um teste ai

 

tente assim e ve o que rola

 

[tr][/tr][tr][/tr]

ASP

<% Set mFileSystem = server.createobject("Scripting.FileSystemObject") IF mFileSystem.FileExists(server.mappath("arquvivo.txt")) = true then response.write("beleza Entrou no arquivo") Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TXT = FSO.OpenTextFile(Server.Mappath("arquvivo.txt")) response.write txt.readALL TXT.close Set TXT = Nothing Set FSO = Nothing ELSE response.write("DROGA Este arquivo não existe") End IF SET mFileSystem = nothing %>