<%
' Cria uma instância do controle
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' Utilizando a propriedade CreateTextFile para criar o arquivo
Set arq = fso.CreateTextFile(Server.MapPath("arquivo.txt"), True)
' Com o método WriteLine você escreve uma linha no arquivo criado acima
arq.WriteLine "Exemplo: FileSystem Object (FSO)"
arq.WriteLine "Arquivo criado em "& Now()
' Fecha o arquivo criado.
arq.Close
' Tira os objetos da memória
Set arq = Nothing
Set fso = Nothing
%>

<%
' Cria uma instância do controle
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' Utilizando a propriedade CreateTextFile para criar o arquivo
Set arq = fso.OpenTextFile(Server.MapPath("arquivo.txt"), 8, True)
' Escrevre no arquivo
arq.WriteLine "Linha adicionada em "& Now()
' Fecha o arquivo criado.
arq.Close
' Tira os objetos da memória
Set arq = Nothing
Set fso = Nothing
%>

<%
' Cria uma instância do controle
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' Pegamos o arquivo existente
Set arq = fso.GetFile(Server.MapPath("arquivo.txt"))
' O método OpenAsTextStream abre o arquivo como sendo um fluxo de texto
Set objStr = arq.OpenAsTextStream(1, False)
' Laço para varrer todas as linha do arquivo
While Not objStr.AtEndOfStream 
  ' Escreve a linha atual do arquivo na tela
  Response.Write objStr.ReadLine & "<br />"
Wend
' Fecha o arquivo
objStr.Close
' Tira os objetos da memória
Set objStr = Nothing
Set arq = Nothing
Set fso = Nothing
%>