这段程序实现新建后后提示是否保存的作用,如果我用一个新的文件名保存就无问题,但如果我先择一个已存在的文件名就
有问题了,例如我选择一个名叫:text.txt的文件名保存..情况就会这样:文件不会保存到text.txt 中,而是生成另一个新的文件"text.txt.txt",文件就会保存到这样一个文件,请问该如何解决?谢谢!

Private Sub new_file() '"新建"子程序
Dim button_YN, k As Integer
Dim filter1, filter2 As String
Dim temp1(), temp2() As String

filter1 = cmd1.FileName
cmd1.filter = "*.txt"
button_YN = MsgBox("是否保存当前文档", vbYesNo)

If button_YN = vbYes Then
cmd1.ShowSave

For i = 1 To 4
If Right(filter1, i) = Right(".txt", i) Then '验证用户输入的文件名是否包含"txt"
k = k + 1
End If
Next

If k = 4 Then
Open filter1 For Output As #1
Print #1, RB.Text
Close #1

Else

filter1 = cmd1.FileName & ".txt" '如果用户输入的文件名不包含"txt"那么程序自动加上
Open filter1 For Output As #1
Print #1, RB.Text
Close #1

End If
End If
RB.Text = "" '清空工作区内容
End Sub

[此贴子已经被作者于2006-12-10 22:49:08编辑过]