Microsoft PowerPoint Version Validation (Office 2007)

    Private Sub GetPowerPointVersions()

        Dim _pptPath As String = GetComponentPath(OfficeComponent.PowerPoint)


        If Not GetMajorVersion(_pptPath) = 12 Then
            System.Windows.MessageBox.Show("Please Note: Only Computers which are using Microsoft PowerPoint 2007 can use this Application at this time. The Application will be closed.", "Microsoft PowerPoint Version In Use Is Not Supported", MessageBoxButton.OK, MessageBoxImage.Exclamation)

            End

        End If

   End Sub

    Private Function GetMajorVersion(ByVal _path As String) As Integer
        Dim toReturn As Integer = 0

        If File.Exists(_path) Then

            Try

                Dim _fileVersion As FileVersionInfo = FileVersionInfo.GetVersionInfo(_path)
                toReturn = _fileVersion.FileMajorPart

            Catch

            End Try

        End If

        Return toReturn

    End Function