以下是 VB6 代码示例,用于将文本内容保存为 UTF-8 编码的文本文件:
Private Sub SaveAsUTF8(strContent As String, strFilePath As String)
Dim iFileNum As Integer
iFileNum = FreeFile()
Open strFilePath For Output As #iFileNum
Print #iFileNum, strContent
Close #iFileNum
End Sub