Dim f As System.IO.FileStream Dim r As System.IO.StreamReader Dim mylength As Integer Dim i As Integer Dim mybuffer(300) As Char f = New System.IO.FileStream("c:\web\0004.txt", IO.FileMode.Open, IO.FileAccess.Read) r = New System.IO.StreamReader(f) TextBox1.Text = r.ReadToEnd() f.Close() r.Close()
回复 wmxaii :没必要写那么复杂 Dim file As New System.IO.StreamReader("c:\test.txt", System.Text.Encoding.Default) Dim vaule As String = file.ReadToEnd file.Dispose() 这样写直接以系统默认字符编码打开文件,应该没错