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