Imports RevisionManager
Imports System.Runtime.InteropServices
Module Example
Sub Main()
Dim objApplication As RevisionManager.Application = Nothing
Dim objDocument As RevisionManager.Document = Nothing
Try
' Start Revision Manager.
objApplication = New RevisionManager.Application
objDocument = objApplication.Open("C:\Part1.par")
Select Case objDocument.Status
Case DocumentStatus.igStatusAvailable
' Available
Case DocumentStatus.igStatusBaselined
' Baselined
Case DocumentStatus.igStatusInReview
' In eview
Case DocumentStatus.igStatusInWork
' In Work
Case DocumentStatus.igStatusObsolete
' Obsolete
Case DocumentStatus.igStatusReleased
' Released
End Select
Catch ex As Exception
' Write any errors to console.
Console.WriteLine(ex.Message)
Finally
' Release COM Objects.
If Not (objDocument Is Nothing) Then
Marshal.ReleaseComObject(objDocument)
objDocument = Nothing
End If
If Not (objApplication Is Nothing) Then
objApplication.Quit()
Marshal.ReleaseComObject(objApplication)
objApplication = Nothing
End If
End Try
End Sub
End Module