'读取指定文本文件
Dim fs As IO.FileStream
Dim r As IO.BinaryReader
Try
fs = New IO.FileStream("d:\jhhj\readme.txt", IO.FileMode.OpenOrCreate)
r = New IO.BinaryReader(fs)
TextBox1.Text = System.Text.Encoding.GetEncoding("gb2312").GetString(r.ReadBytes(fs.Length), 0, fs.Length)
Catch
’代码再次调用,5,6,7行就会出错,只好藏起来了
End Try
Dim fs As IO.FileStream
Dim r As IO.BinaryReader
Try
fs = New IO.FileStream("d:\jhhj\readme.txt", IO.FileMode.OpenOrCreate)
r = New IO.BinaryReader(fs)
TextBox1.Text = System.Text.Encoding.GetEncoding("gb2312").GetString(r.ReadBytes(fs.Length), 0, fs.Length)
Catch
’代码再次调用,5,6,7行就会出错,只好藏起来了
End Try