怎样保存RichTextBox控件之中的文本？？？？？？？？？？

Question

我想知道有没有和 SavePicture Picture1.Image,"c:\111.bmp"
这条语句类似的能保存RichTextBox控件之中的文本为一个.txt文件的语句？
因为我想暂时保存一个文件之后，再用一条语句调用Notepad.exe打开这个文本，以实现把RichTextBox控件之中的文本导入Notepad.exe的效果。

Answer 1

RichTextBox1.SaveFile "c:\aa.rtf", 1'********************************8SaveFile 方法把 RichTextBox 控件的内容存入文件。不支持命名的参数。语法object.SaveFile(pathname, filetype)SaveFile 方法的语法包含下面部分：部分 描述 
object 必需的。对象表达式，其值是“应用于”列表中的一个对象。 
pathname 必需的。字符串表达式，它定义保存控件内容文件的路径和文件名。 
filetype 可选的。整数或常数，按照“设置值”中的描述确定加载文件的类型。 
设置值filetype 的设置值是：常数 值 描述 
rtfRTF 0 （缺省）RTF。RichTextBox 控件把它的内容存为一个 .rtf 文件。 
rtfText 1 文本。RichTextBox 控件把它的内容存为一个文本文件。 
说明也可用 Visual Basic 的 Write 函数和 RichTextBox 控件的 TextRTF 属性和 SelRTF 属性写 .rtf 文件。例如，可按如下方式把 RichTextBox 控件中突出显示的内容存为 .rtf 文件。Open "mytext.rtf" For Output As 1Print #1, RichTextBox1.SelRTF

Answer 2

奇怪呀！！！我现在的语句是：
  ttt.SaveFile "c:\lzh1029.txt",1
  Shell App.Path+"Notepad.exe"+"c:\lzh1029.txt",vbNormalFoucus
  Kill "c:\lzh1029.txt"
在执行到第二条语句时就会报错：没有找到文件！
我已经看到了在C:\有lzh1029.txt了，可是还是报错呀！！！？？？
我已经拷贝了一个Notepad.exe到我的程序目录之中了。
这是什么缘故呀？？？？？

Answer 3

我已经找到了毛病了，现在的代码如下：
  ttt.SaveFile "c:\lzh1029.txt",1
  Shell "C:\windows\Notepad.exe"+"c:\lzh1029.txt",vbNormalFoucus
  Kill "c:\lzh1029.txt"
就不会报错了，可是我已经拷贝了一个Notepad.exe到我的程序目录了呀，我的程序目录之中没有子目录比如叫prog目录的话，我的.vbp,.vbw,.frm文件都在该目录之中，同样Notepad.exe也在该目录之中，可是怎么还会报错呢？

Answer 4

Shell app.path & "\Notepad.exe "+"c:\lzh1029.txt",vbNormalFoucus

Answer 5

这样也不行！！！！！
  ttt.SaveFile "c:\lzh1029.txt",1
  Shell App.Path+"\Notepad.exe"+"c:\lzh1029.txt",vbNormalFoucus
  Kill "c:\lzh1029.txt"

Answer 6

这样也不行！！！！！
  ttt.SaveFile "c:\lzh1029.txt",1
  Shell App.Path & "\Notepad.exe"+"c:\lzh1029.txt",vbNormalFoucus
  Kill "c:\lzh1029.txt"