一个简单的菜鸟问题，关于文件保存的问题
使用CommonDialog控件，要保存RichTextBox内个文本。
程序如下，
Private Sub cmdbaocun_Click()
dlgdb.ShowSave
rtbbaocun.SaveFile dlgdb.FileName, 1
End Sub
运行后是弹出保存，并选择位置命名文件名字。
现在要求，点了cmdbaocun_Click后，自动保存在本工程目录下文件名为“a.txt”的文件，而且不论是否文件存在都直接覆盖，不弹出提示。
谢谢各位
问题点数：30、回复次数：4Top
1 楼ljhdi（ ）回复于 2005-06-03 09:02:48 得分 10
设置filename为a.txtTop
2 楼of123（）回复于 2005-06-03 09:13:48 得分 10
Private Sub cmdbaocun_Click()
Open App.Path & "\a.txt" For Output As #1
Print #1, rtbbaocun.Text
Close #1
End SubTop
3 楼DooDu（杜霖:I want,I can(开关拉)）回复于 2005-06-03 09:15:00 得分 10
如楼上所述。不用showsave，直接
rtbbaocun.savefile app.path & "\a.txt",1Top
4 楼thunderyue（夏季）回复于 2005-06-03 09:38:42 得分 0
呵呵~问题解决，谢谢各位了。
特别感谢DooDu(杜霖:I want,I can.(MmMVP马甲)） 我的好几个问题都帮我解决了，十分感谢Top
