这段程序实现新建后后提示是否保存的作用,如果我用一个新的文件名保存就无问题,但如果我先择一个已存在的文件名就
有问题了,例如我选择一个名叫: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编辑过]
