[求助]请问记事本保存这一部分应该如何思路编写？
Private Sub mnuSave_Click()CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "记事本：" & FileName
End Sub
上面是一个菜单另保存部分的编写，但是，我想加一个工具拦上编写一个保存的，它的思路编写应该如何呢？
就是当我按下保存是不是弹出窗口保存文本，而是直接在记事本是保存，在第2次打开记事本是，保留之前保存的内容
因为想做一个个人自用的记事本。望高手赐教！帮忙帮忙！谢谢！
[此贴子已经被作者于2007-9-24 11:03:44编辑过]
QjDZDwNW.txt
