1、What is cd1?
2、你保存和打开的文件名必须有路径才行，例如输入 C:\a.txt 即保存于 C 盘根目录下的 a.txt 文件。
3、生成工程文件时好像什么都不能做，详细说ok?

我昨天回的帖子好像没发出来？

1、cd1 是指commondialog1

2、是我保存的时候没有写路径，写了就可以了（不好意思了），但是打开的时候必须是*.doc或用写字板打开的才可以，用*.txt打开就是乱码 ！

3、谢谢你阿！

打开按钮的保存部分改为:
   If Right(LCase(strFilename), 4) = ".txt" Then '如果打开了 txt 格式的文件
      rtfText.LoadFile strFilename,rtfText
   Else
      rtfText.LoadFile strFilename,rtfRTF
   End If
End Sub

富文本框保存的时候应该是个另存为对话框啊   怎么会不知道保存哪去了  commondialog  这个是通用对话框 使用起来很方便  可以实现打开/保存/字体设置/颜色设置 等功能
控件名  Microsoft Common Dialog Control 6.0

保存文件为*txt代码:
Private Sub command1_Click()
On Error Resume Next
CommonDialog1.Filter = "文本文档(*.txt)"  格式过滤器  只能保存为txt格式
CommonDialog1.DefaultExt = "txt"
CommonDialog1.FileName = "xinge1023.txt"  默认保存文件名
CommonDialog1.ShowSave  
     Open CommonDialog1.FileName For Output As #1   向打开的文本号为1的文件内写入数据缓冲区
    Print #1, RichTextBox1.Text   将缓冲区的内容读到富文本框
    Close
    End Sub


很简单的   你下去好好看看书就懂了

jlj