Adicionando
uma linha no arquivo TXT já criado.
<%
'O parâmetro forReading é utilizado somente para
leitura.
Const forReading = 1, forWriting = 2, forAppending = 8
'Instancia
o objeto FSO.
Set Fso = CreateObject("Scripting.FileSystemObject")
'Abre
o arquivo com o método OpenTextFile.
Set ArqTxt = Fso.OpenTextFile("c:\www\login\web\teste\arquivo.txt",8,True)
'Arquivo
aberto, escreve no arquivo
ArqTxt.WriteLine("Mais uma linha com o FSO!")
'Fecha
o arquivo com o método Close.
ArqTxt.Close
'Destrói
o objeto. Set ArqTxt = nothing
'Retorna
o arquivo que será usado.
Set ObjFile = Fso.GetFile("c:\www\login\web\teste\arquivo.txt")
'Abre
o arquivo novamente, agora para a leitura !
Set ObjStream = ObjFile.OpenAsTextStream(forReading,false)
'Looping
para varrer todas as linhas do arquivo.
While Not ObjStream.AtEndOfStream
'O método Readline lê uma linha de um arquivo.
Texto = Texto & ObjStream.Readline & "<br>"
Wend
'Mostra
o conteúdo.
response.write Texto
'Destruíndo
objetos
Set Fso = nothing
Set objStream = nothing
%> |