Я должен написать текстовый файл в VB6. Мне нужно сделать это в дополнении и в кодировке utf-8.

Я пробовал два решения, одно с & quot; TextStream & quot; и еще один с «ADODB.Stream».

Первый:

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

Хорошо работает при добавлении, но как я могу написать это в кодировке utf-8?

Второй:

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

Пишите правильно в utf-8, но я не могу написать файл в добавлении, но только с помощью "adSaveCreateOverWrite".

Как я могу это сделать? Есть ли другой способ?

Большое спасибо.