求助vb写文本文件

Question

各位高手，我是初学者，我想用vb做个exe，我用采集卡采集数据，写到rtf文件里边，然后下次再采集的时候想重新写入
但是不把已经写完的文件覆盖。也就是写入不同的文件里边，文件名我在界面里边坐了一个textbox,在那里设置文件名，
我不知道怎么写代码，求高手帮写一下！
谢谢

Answer 1

shell打开写板
sendkeys传输并保存数据。

Answer 2

dim fs as object
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists(text1.text) then
    Set fs=Nothing
    msgbox "文件"+text1.text+"已存在，请改用其它名字。"
    exit sub
endif
Set fs=Nothing
'……

Answer 3

open filename for append as filenumber 

Answer 4

[    Select Case FiType
        Case "txt"
            RichTextBox1.SaveFile FileName, rtfText
        Case "rtf"
            RichTextBox1.SaveFile FileName, rtfRTF
        Case "*.*"
            RichTextBox1.SaveFile FileName
    End Select][/code]

Answer 5

sorry
,我看错了   你用的textbox啊?

Answer 6

使用RICTEXTBOX控件的话可以使用这个控件保存为RTF格式。以及俺写过一个VB文件操作模块，你可以看看：http://topic.csdn.net/u/20100603/17/7ac83f8d-6288-40e3-92a3-f3dbdcc1735b.html