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

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