CommonDialog问题
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
