VB如何在文本最后一行写入数据

一个文本文件如下
2006……
2007……

在最后一行加入指定文本（自动在前面加入回车）如何可以做到

文本文件,
打开方式 以几种方式来打开
其中有一个打开方式,是在文件尾添加数据
你在添加时 加个循环 CHR（13）
就可.

open "文件名" for append as #1 这是多次打开文件进行添加的办法 vbCrlf + "字符串" 是一次打开文件多次添加的方法

open "文件名" for append as #1

移动文件指针到文件末尾,,然后写入 vbCrlf + "字符串" 就可以了

'添加按钮command1，同时在c盘根目录放个文件c:\test.txt，然后添加下面代码 private sub command1_click()     dim strcontent$, l&     open "c:\test.txt" for input as #1     strcontent = strconv(inputb$(lof(1), #1), vbunicode)     close #1     strcontent = left(strcontent, instrrev(strcontent, vbcrlf) - 1)     open "c:\test.txt" for output as #1     print #1, strcontent     close #1     msgbox "处理完毕！" end sub