Dim FSO As System.IO.StreamReader
        Dim Read_Txt As String
        FSO = My.Computer.FileSystem.OpenTextFileReader(FleName, Encoding.Default)
        Do While FSO.Peek() >= 0
            Read_Txt = FSO.ReadLine()
        Loop
        FSO.Close()


PS:
请注意打开方法...
如果没有 Encoding.Default 就无法读取中文....
http://hi.baidu.com/hetaoos/blog/item/f28a7ff02acc78afa50f5203.html
posted on 2007-01-05 12:31  mbskys  阅读(163)  评论(0)    收藏  举报