Private Sub Command3_Click()
Dim strfilename As String
Dim filenum
CommonDialog2.Filter = "文本文件(*.txt)|*.txt"
CommonDialog2.FilterIndex = 1
CommonDialog2.ShowSave
strfilename = CommonDialog2.FileName
filenum = FreeFile
If strfilename <> "" Then
Open strfilename For Output As filenum
Print #filenum, Text1.Text
Close filenum
End If
End Sub
请问我这里有错误吗?
为什么保存老是不显示后缀名?
如我保存为:123
保存结果就应该为123.txt

楼上代码没有问题!
在本人机子上调试也没有问题!

楼主的机子的文件夹选项设置了:  隐藏已知文件类型的扩展名 ????

要是你在不改变电脑设置的前提下,追求你上述效果的话,
请将strfilename = CommonDialog2.FileName 改为 strfilename = CommonDialog2.FileName & ".txt"

谢谢 上楼的办法...
还有个问题就是...如果保存的有重名的txt文件,为什么系统没提示,直接就把
已经存在的txt文件 覆盖掉了呢?

If Dir(CommonDialog2.FileName & ".txt") <> "" Then a = MsgBox("该文件已存在,你是否要替换?", vbOKCancel + vbQuestion, "提示")
If a = vbOK Then
If strfilename <> "" Then
Open strfilename For Output As filenum
Print #filenum, Text1.Text
Close filenum
End If
Else
End If

思路就这样,具体你想怎么实现,你自己看着办吧!~