打开TXT文件

     ' 函数名  :ReadFileInfo  
     ' 函数功能:打开TXT文件
     ' 传入参数:sFilePath带有文件路径的文件名
     ' 返回值  :文件的内容
     ' 制作人  :zzz
     ' 制作日期:2006-11-15
     ' 说  明  :此函数需要有System.IO的引用
     Private   Function ReadFileInfo() Function ReadFileInfo(ByVal sFilePath As String) As String
        '取得文件的扩展名()
        Dim FileKName As String, ReadFile As String
        FileKName = sFilePath.Substring(sFilePath.LastIndexOf(".") + 1, 3)
        If (FileKName <> "txt" And FileKName <> "TXT") Then
            ReadFileInfo = "请选择文本文件!"
        Else
            '以默认编码的形式建立读数据流
            Dim FileStream As System.IO.StreamReader
            FileStream = New System.IO.StreamReader(sFilePath, System.Text.Encoding.Default)
            ReadFile = FileStream.ReadToEnd()
            ReadFileInfo = ReadFile
        End If
    End Function