Imports RevisionManager
Imports System.Runtime.InteropServices
Module Example
Sub Main()
Dim objApplication As RevisionManager.Application = Nothing
Dim objInsight As RevisionManager.Insight = Nothing
Dim DocumentStatus As RevisionManager.DocumentStatus
Dim strFileName As String
Dim aDraftFileList(1) As Object
Dim aDraftFileStatusList(1) As Object
Dim aRevisionFileList(1) As Object
Dim aRevisionFileStatusList(1) As Object
Try
' Start Revision Manager.
objApplication = New RevisionManager.Application
' Get reference to Insight object.
objInsight = objApplication.Insight
strFileName = "http://solidvm/Engineering/PreReleased/PreReleasedDocLib/CDPlayer/CDPlayer.asm"
DocumentStatus = DocumentStatus.igStatusAvailable
aDraftFileList(0) = "http://solidvm/Engineering/PreReleased/PreReleasedDocLib/CDPlayer/test1.dft"
aDraftFileList(1) = "http://solidvm/Engineering/PreReleased/PreReleasedDocLib/CDPlayer/test2.dft"
aDraftFileStatusList(0) = DocumentStatus.igStatusInReview
aDraftFileStatusList(1) = DocumentStatus.igStatusInReview
aRevisionFileList(0) = "http://solidvm/Engineering/PreReleased/PreReleasedDocLib/CDPlayer/test-1.par"
aRevisionFileList(1) = "http://solidvm/Engineering/PreReleased/PreReleasedDocLib/CDPlayer/test-2.par"
aRevisionFileStatusList(0) = DocumentStatus.igStatusBaselined
aRevisionFileStatusList(1) = DocumentStatus.igStatusBaselined
objInsight.MoveDocumentsThroughWorkFlow(strFileName, DocumentStatus, aDraftFileList.Length, aDraftFileList, aDraftFileStatusList, aRevisionFileList.Length, aRevisionFileList, aRevisionFileStatusList)
Catch ex As Exception
' Write any errors to console.
Console.WriteLine(ex.Message)
Finally
' Release COM Objects.
If Not (objInsight Is Nothing) Then
Marshal.ReleaseComObject(objInsight)
objInsight = Nothing
End If
If Not (objApplication Is Nothing) Then
objApplication.Quit()
Marshal.ReleaseComObject(objApplication)
objApplication = Nothing
End If
End Try
End Sub
End Module