VB中如何实现向新建文本，并文本中写入内容？

Private Sub button1_Click()

'以输出方式打开new.txt这里有路径问题参见 "c:\new.txt"就是指输出到哪个文件
'for output是指打开方式为输出方式 此方式如果该文件存在则覆盖
'as #1 打开文件需要占用工作区的，所以以1号工作区打开该文件
Open "C:\NEW.TXT" For Output As #1
'在一号文件区打开的文件里写入abc
Print #1, "abc"
'关闭一号工作区
Close #1
'任务完成加详解，有分没有？
End Sub

Private Sub button2_Click()

'以输出方式打开new.txt这里有路径问题参见 "c:\new.txt"就是指输出到哪个文件
'as #1 打开文件需要占用工作区的，所以以1号工作区打开该文件
'for append是指输出方式为追加方式
Open "C:\NEW.TXT" For Append As #1
'在一号文件区打开的文件里写入defg
Print #1, "defg"
'关闭一号工作区
Close #1
'任务完成加详解，有分没有？

End Sub

Private
Sub
button1_Click()
'以输出方式打开new.txt这里有路径问题参见
"c:\new.txt"就是指输出到哪个文件
'for
output是指打开方式为输出方式
此方式如果该文件存在则覆盖
'as
#1
打开文件需要占用工作区的，所以以1号工作区打开该文件
Open
"C:\NEW.TXT"
For
Output
As
#1
'在一号文件区打开的文件里写入abc
Print
#1,
"abc"
'关闭一号工作区
Close
#1
'任务完成加详解，有分没有？

实现方法如下 ：
1、在窗体上添加text1控件,并把上面文本复制到text1.text中；
2、写入文本文件：
dim i as integer
i=freefile
open "c:\1.txt" for output as #i
print #i,text1.text
close #i

'大家说的都对，我来个最简单的吧
'添加窗体Form1,按钮Command1,Command2,然后添加如下代码:
Private Sub Command1_Click()
Shell "cmd /c echo abc > c:\new.txt", 0
End Sub
Private Sub Command2_Click()
Shell "cmd /c echo defg >> c:\new.txt", 0
End Sub

As #1 表示你将这个文件在缓冲区中“编号为1”
缓冲区是内存中开辟的 在写入硬盘前作缓冲的 写满后才一次性存入硬盘的 一片空间。
编号为1后，以后用“#1”就能代指那个文件。如：Print #1, "abc" ，就是向其中写入"abc"。
一般来说，编号最大为256。
当然，“编号”是比较通俗的说法。