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

在窗体上有两个按钮，分别为botton1和botton2，按下botton1则新建一个文本文件，文件内容为"abc”，按下botton2则向那个文件中接着写入"defg"．请问如何实现？
不好意思，我可能没说清楚．按下botton1新建一个文本文，假设其文件名为new，文本内容为"abc"．
Gameboy_cy 你的那个As #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

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

As #1 表示你将这个文件在缓冲区中“编号为1”