读取和写入文件 
以下示例将一行文本写入文件。 

' Write text to a file 
Sub WriteTextToFile() 
Dim file As New System.IO.StreamWriter("c:test.txt") 
file.WriteLine("Here is the first line.") 
file.Close() 
End Sub 

以下示例将文件中的文本读取到一个字符串变量中，然后将该文本写到控制台。 

Sub ReadTextFromFile() 
Dim file As New System.IO.StreamReader("c:test.txt") 
Dim words As String = file.ReadToEnd() 
Console.WriteLine(words) 
file.Close() 
End Sub 

以下示例在现有文件中添加文本。 

Sub AppendTextToFile() 
Dim file As New System.IO.StreamWriter("c:test.txt", True) 
file.WriteLine("Here is another line.") 
file.Close() 
End Sub 

以下示例一次从文件中读取一行，然后将每行文本打印到控制台。 

Sub ReadTextLinesFromFile() 
Dim file As New System.IO.StreamReader("c:test.txt") 
Dim oneLine As String 
oneLine = file.ReadLine() 
While (oneLine <> "") 
Console.WriteLine(oneLine) 
oneLine = file.ReadLine() 
End While 
file.Close() 
End Sub 

文件编码 
默认情况下，StreamReader 和 StreamWriter 类都使用 UTF-8 编码。UTF-8 编码正确处理 Unicode 字符并确保操作系统的本地化版本之间保持一致。 

可使用 StreamReader 自动检测文件的编码，或者将文件的编码指定为构造函数上的参数。 

StreamWriter 在其构造函数上采用一个编码参数。如果指定编码，则 Visual Basic 写入文件以指示所使用的编码。 


详细出处参考： http://www.jb51.net/article/15531.html