Para aqueles que não usam FSO em ASP, use o objeto adodb.stream para salvar e ler arquivos para evitar máquinas que possuem alguns hosts virtuais que não suportam FSO. '************************************
'Leia o arquivo
'************************************
Função LoadFromFile (arquivo ByVal)
Dim objStream
Escurecer RText
RTexto = Matriz(0, )
Definir objStream = Server.CreateObject(ADODB.Stream)
Com objStream
.Tipo = 2
.Modo = 3
.Abrir
.Conjunto de caracteres = utf-8
.Posição = objStream.Size
Em caso de erro, retomar o próximo
.LoadFromFile Servidor.MapPath(Arquivo)
Se errar então
RText = Array(Err.Número, Err.Descrição)
LoadFromFile = RTexto
Err.Limpar
Função de saída
Terminar se
RText = Array(0, .ReadText)
.Fechar
Terminar com
LoadFromFile = RTexto
Definir objStream = Nada
Função final
'************************************
'Salvar arquivo
'************************************
Função SaveToFile (ByVal strBody, Arquivo ByVal)
Dim objStream
Escurecer RText
RTexto = Matriz(0, )
Definir objStream = Server.CreateObject(ADODB.Stream)
Com objStream
.Tipo = 2
.Abrir
.Conjunto de caracteres = utf-8
.Posição = objStream.Size
.WriteText = strBody
Em caso de erro, retomar o próximo
.SaveToFile Servidor.MapPath(Arquivo), 2
Se errar então
RText = Array(Err.Número, Err.Descrição)
SalvarParaArquivo = RTexto
Err.Limpar
Função de saída
Terminar se
.Fechar
Terminar com
RText = Array(0, arquivo salvo com sucesso!)
SalvarParaArquivo = RTexto
Definir objStream = Nada
Função final