Write text file in appending (utf-8 encoded) in VB6
问题 I have to write a textfile in VB6. I need to do it in appending and utf-8 encoded. I tried two solutions, one with "TextStream" and another one with "ADODB.Stream". The first one: Set fsoFile = fso.OpenTextFile(FileIn(fi), ForAppending, True) fsoFile.WriteLine "<tag>kkkjòòkkkkjlòlk</tag>" fsoFile.Close Works good in appending but how can I write it utf-8 encoded? The second one: Dim ST As ADODB.Stream Set ST = New ADODB.Stream ST.Mode = adModeReadWrite ST.Type = adTypeText ST.Charset = "UTF-8