打开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