[Resolvido] Criar arquivo TXT - UTF-8

[Inside 2]

Caros amigos,

 

 

depois de muita pesquisa achei um código que cria arquivos de texto em UTF-8. Espero ajudar a muitos.

 

 

Apaga o arquivo (caso ele já exista):

dim n_arquivo

n_arquivo = server.mappath("arquivos/texto.txt")

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile n_arquivo

 

Recria (cria) o arquivo:

const adTypeBinary = 1
const adSaveCreateOverwrite = 2
const adModeReadWrite = 3

dim objStream

Set objStream = server.CreateObject("ADODB.Stream")
objStream.Open
objStream.CharSet = "UTF-8"

objStream.WriteText "Meu texto"

objStream.SaveToFile server.mappath("arquivos/texto.txt") , adSaveCreateOverWrite
objStream.Close
set objStream = nothing

 

Obrigado pela atenção de todos.