得到文件的版本号

     ' 过程名称：GetFileVersions
     ' 功能描述：得到传入文件的版本号
     ' 接收参数：sFilePathName:带有路径的文件名
     ' 返回参数：文件的版本号字符串
     ' 创建人员及日期：zzz@2006-03-08
     ' 注意事项:传入的文件名需要为*.exe,*.dll,*.ocx
     Public   Function GetFileVersions() Function GetFileVersions(ByVal sFilePathName As String) As String
        Dim file1 As System.Diagnostics.FileVersionInfo

        Try
            file1 = System.Diagnostics.FileVersionInfo.GetVersionInfo(sFilePathName)
            GetFileVersions = file1.FileVersion
        Catch ex As Exception

            GetFileVersions = ""
            Throw New Exception("Error In GetFileVersions!!!" & vbCrLf & _
                                "Source:" & ex.Source.ToString())
        End Try
    End Function