VB -fso对txt文件进行追加记录啊 -有结果马上结贴！多谢

VB ----fso对txt文件进行追加记录啊! ---在线等！有结果马上结贴！谢谢
如何先判断是否存在文件，如果存在则追加数据到该文件中，如果不存在就新建该文件，然后添加数据到该文件中？      
 
要用fso对文件进行追加

------解决方案--------------------
strFile= "C:\README.TXT "
If Not FSO.FileExists(strFolder) Then
FSO.CreateTextFile strFile
OPEN strFile FOR Binary As #1
ELSE
OPEN strFile FOR Append
End