主要代码:

Private Sub Command74_Click()
Dim strPath As String
With FileDialog(msoFileDialogFolderPicker)
    .Filters.Clear
    If .Show Then
        strPath = .SelectedItems(1)
    Else
        Exit Sub
    End If
End With
createUFT8 strPath & "/" & Me.Text75 & ".txt", "test"
MsgBox "添加成功。", vbInformation
End Sub

Sub createUFT8(strPath, str)
  Dim objStream As Object
  Set objStream = CreateObject("ADODB.Stream")
  With objStream
    .Type = 2        'adTypeText
    .Charset = "UTF-8"
    .Open
    .WriteText str
    .SaveToFile strPath, 2 'adSaveCreateOverWrite
  End With
 
  Set objStream = Nothing
End Sub

附   件:

点击下载此附件

图片演示: