學習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