Solid Edge Revision Manager Object Library
ReviseFiles Method
Specifies the URL path of the container document.
Specifies the list of URL paths of files to be revised.
Specifies the destination URL paths of the revised files.
Description
This method revises the files of the specified container document.
Syntax
Visual Basic
Public Function ReviseFiles( _
   ByVal FileName As String, _
   ByVal FilesToBeRevised As Variant, _
   ByVal DestinationPathsOfRevisedFiles As Variant _
) As Long
Parameters
FileName
Specifies the URL path of the container document.
FilesToBeRevised
Specifies the list of URL paths of files to be revised.
DestinationPathsOfRevisedFiles
Specifies the destination URL paths of the revised files.
Example
Imports RevisionManager
Imports System.Runtime.InteropServices

Module Example

    Sub Main()
        Dim objApplication As RevisionManager.Application = Nothing
        Dim objInsight As RevisionManager.Insight = Nothing
        Dim aFilesToBeRevised(0) As Object
        Dim aDestinationPathsOfRevisedFiles(0) As Object
        Dim strFileName As String

        Try
            ' Start Revision Manager.
            objApplication = New RevisionManager.Application

            ' Get reference to Insight object.
            objInsight = objApplication.Insight

            strFileName = "http://solidvm/Engineering/PreReleased/PreReleasedDocLib/Summit.par"
            aFilesToBeRevised(0) = "http://solidvm/Engineering/PreReleased/PreReleasedDocLib/Summit.par"
            aDestinationPathsOfRevisedFiles(0) = "http://solidvm/Engineering/PreReleased/PreReleasedDocLib"

            objInsight.ReviseFiles(strFileName, aFilesToBeRevised, aDestinationPathsOfRevisedFiles)

        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
See Also

Insight Object  | Insight Members

Send comments on this topic.