VB 如何轉存文字檔案為 UTF-8 編碼格式

如果你在寫 ASP 或 VB 且一定要將文字儲存成 UTF-8 編碼，這個 Function 應該可以幫你的忙：

Function SaveTextAsUTF8(filePath, Text)
   Const adTypeText = 2
   Const adSaveCreateOverWrite = 2

   'Create Stream object
   Dim TextStream
   Set TextStream = CreateObject("ADODB.Stream")
   With TextStream
      .Open
      .CharSet = "UTF-8"
      .Position = TextStream.Size
      .WriteText Text
      .SaveToFile filePath, adSaveCreateOverWrite
      .Close
   End With
   Set TextStream = Nothing
End Function