VB中如何在第二次保存的时候不弹出另存为对话框呢???

Private Sub MenuSave_Click()
CommonDialog1.Filter = "文本文件(*.txt)|*.txt" '指定文件类型
CommonDialog1.ShowSave '调出保存对话框
If Not Len(CommonDialog1.FileName) = 0 Then '如果在保存对话框对话框文件名长度不为0时
Open CommonDialog1.FileName For Output As #1 '那么保存。文件号为#1
Print #1, Text1 '把Text1的内容写入文件号为#1的文件。（TEXT1就是记事本控件）
Close #1 '关闭#1，这个命令是必须的。
End If
End Sub

我的意思是想第一次保存过后,以后再点击保存的话是直接保存不会再有对话框弹出.
这里该如何修改呢...或者要怎么写

最好能写出源码.....谢谢了...

你把打开对话框的操作放在saveAs菜单项里面
第一次点保存菜单时调用saveAs菜单的过程.并且保存路径(假设变量path)。
以后再点保存就直接操作保存在前面保存的路径(path)里的了

'界面中加一commondialog private sub command8_click() on error resume next commondialog1.dialogtitle = "另存为" commondialog1.defaultext = ".txt" commondialog1.initdir = "c:\" commondialog1.showsave f = freefile fname = commondialog1.filename open fname for output as f print #f, text1.text close f end sub