学习VB.NET时，你可能会遇到VB.NET追加文件问题，这里将介绍VB.NET追加文件 问题的解决方法，在这里拿出来和大家分享一下。

#T#VB读写文件要用到以下语句：
1、Open语句打开文件。
2、读文件使用LineInput、Input#，（以上为文本方式）和Get（以上为二进制方式）。
3、写文件使用Print#、Write（以上为文本方式）和Put（以上为二进制方式）。
4、Close语句关闭文件
5、二进制方式下移动文件位置使用Seek语句。
所有这些语句在VB的帮助中都有详细说明和例子。

文本文件的示例：

Open"TESTFILE"ForOutputAs#1'打开输出文件。  
Print#1,"Thisisatest"'将文本数据写入文件。  
Print#1,'将空白行写入文件。  
Print#1,"Zone1"；Tab；"Zone2"'数据写入两个区（printzones）。  
Print#1,"Hello"；""；"World"'以空格隔开两个字符串。  
Print#1,Spc(5)；"5leadingspaces"'在字符串之前写入五个空格。  
Print#1,Tab(10)；"Hello"'将数据写在第十列。  
'赋值Boolean、Date、Null及Error等。  
DimMyBool,MyDate,MyNull,MyError  
MyBool=False:MyDate=#February12,1969#:MyNull=Null  
MyError=CVErr(32767)  
'True、False、Null及Error会根据系统的地区设置自动转换格式。  
'日期将以标准的短式日期的格式显示。  
Print#1,MyBool；"isaBooleanvalue"  
Print#1,MyDate；"isadate"  
Print#1,MyNull；"isanullvalue"  
Print#1,MyError；"isanerrorvalue"  
Close#1'关闭文件。 

读文件示例

使用LineInput#语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。本示例假设TESTFILE文件内含数行文本数据。

DimTextLine  
Open"TESTFILE"ForInputAs#1'打开文件。  
DoWhileNotEOF(1)'循环至文件尾。  
LineInput#1,TextLine'读入一行数据并将其赋予某变量。  
Debug.PrintTextLine'在调试窗口中显示数据。  
Loop  
Close#1'关闭文件。 

VB.NET追加文件示例

Open"A.txt"ForappendAs#1  
Print#1,"303(吴志坤)是个大笨蛋！，居然不知道append是追加。"  
Print#1,"从QBASIC时代就有这个语句了。"  
Print#1,"Output是从头写，Input是读，Append是追加。"  
Print#1,"Print#文件号，是写文件。"  
Print#1,"LineInput#文件号，是成行读文件。"  
Print#1,"你地明白否？"  
Close#1