之前用createTextFile方法发现写出来的结果是utf16。
因为目标系统不支持utf16，只好求组网络。
学到了拿adodb写文件的偏门，或者说其实这才是主流？
Public Sub doExec()
Dim lngLstRow2 As Long
Dim i As Long
Dim fso As New FileSystemObject
Dim f As Object
Dim j As Integer
Dim fName As String
Dim Stream As New ADODB.Stream
Stream.Type = adTypeText
Stream.Charset = "utf-8"
Stream.Open
'...
'...
fName = "C:\Project\test\app_archi.md"
Stream.WriteText " " & "something" & vbLf
Stream.SaveToFile fName, adSaveCreateOverWrite
Stream.Close
End Sub
