Ich muss eine Textdatei in VB6 schreiben. Ich muss es im anhang und in utf-8 verschlüsselt machen.

Ich habe zwei Lösungen ausprobiert, eine mit "TextStream" und eine andere mit "ADODB.Stream".

Der erste:

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

Funktioniert gut beim Anhängen, aber wie kann ich es utf-8-codiert schreiben?

Der zweite:

<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>

In utf-8 richtig schreiben, aber ich kann die Datei nicht im Anhang schreiben, sondern nur mit "adSaveCreateOverWrite".

Wie kann ich das machen? Gibt es eine andere Art und Weise?

Vielen Dank.