读取指定文本文件

'读取指定文本文件
        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