Eu tenho que escrever um arquivo de texto no VB6. Eu preciso fazer isso em appending e utf-8 codificado.

Eu tentei duas soluções, uma com "TextStream" e outra com "ADODB.Stream".

O primeiro:

<code>    Set fsoFile = fso.OpenTextFile(FileIn(fi), ForAppending, True)
    fsoFile.WriteLine "<tag>kkkjòòkkkkjlòlk</tag>"
    fsoFile.Close
</code>

Funciona bem em acrescentar, mas como posso escrevê-lo codificado utf-8?

O segundo:

<code>Dim ST As ADODB.Stream

Set ST = New ADODB.Stream
ST.Mode = adModeReadWrite
ST.Type = adTypeText
ST.Charset = "UTF-8"

ST.Open
ST.LoadFromFile FileIn(fi)
ST.Position = ST.Size
ST.WriteText "<tag>kkkjòòkkkkjlòlk</tag>"
ST.SaveToFile FileIn(fi)
ST.Close
</code>

Escreva corretamente em utf-8, mas não consigo escrever o arquivo ao acrescentar, mas apenas com "adSaveCreateOverWrite".

Como eu posso fazer isso? Existe outro caminho?

Muito obrigado.