Microsoft PowerPoint Version Validation (Office 2007)

Naimishforu
Posted by Naimishforu under VB.NET category on | Points: 40 | Views : 2333
Microsoft PowerPoint Version Validate :

    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

Comments or Responses

Login to post response