segunda-feira, 16 de julho de 2001

Exibindo o conteúdo de um txt.

<%


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


Set listar = fso.OpenTextFile("c:\InetPub\wwwroot\teste.txt",1,0)


Do while listar.AtEndOfStream <> true
conteudo = listar.readline
response.write conteudo & "<br><br>"
Loop


Set fso = Nothing
Set listar = Nothing


%>



Esta matéria foi postada originalmente no ASP4Developers por Francisco Hárley Diniz (site), que na época era "Programador ASP, frequenta o canal #asp da Brasnet (rede de irc).". Hoje, vai saber...

0 comentários: