Convertir ANSI a UTF-8 en VB

Subform_Load privado()

Texto1. MultiLine = True

Anota x como una cadena

Abre la aplicación. Caminos y caminos. "\VersionDescription.txt" se ingresa como #1

Entrada #1, x

Texto1. Texto = Entrada(LOF(1), 1)

Conector final

Cambie "Hola" a UTF-8.

============================================ === =======

ADODB. Formación del río

Subcomando privado 1_Click()

ToUtf8 "Hola", "c:\ab.txt"

Conector final

Private Sub ToUtf8(ByVal s como cadena, ByVal FilePath como cadena)

Dim stmStr

Establecer stmStr = CreateObject("ADODB.Stream")

stmStr. Abra

stmStr. Conjunto de caracteres = "utf-8 "

stmStr. Escribir texto

stmStr. Ruta del archivo SaveToFile

stmStr. Cerrar

Establecer stmStr = Nada

Conector final