vb题：单击"保存文件"后弹出另存为通用对话框，确定文件名后保存

On Error GoTo err1
CommonDialog1.Filter = "文本文件 (*.txt)|*.txt|All Files (*.*)|*.*"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1

Write #1, Text2.Text

Close #1

err1:
Exit Sub
保存text2中的内容到文本文件，如果不需要，删除write那行

On Error GoTo err1
CommonDialog1.Filter = "文本文件 (*.txt)|*.txt|All Files (*.*)|*.*"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1

err1:
Exit Sub
mijing2000写的不错，但是我建议使用Print 来将文件内容写入，因为使用 Write写入的字符串会被加上引号！