Solid Edge Need method to rename the specified files and moves them to a new location.

Need method to renames the specified files and moves them to a new location.

Solution

Option Infer On


Imports System
Imports System.Runtime.InteropServices


    RenameFile Class Program
        Shared Sub Main(ByVal args() As String)
            Dim application As RevisionManager.Application = Nothing
            Dim insight As RevisionManager.Insight = Nothing


            Try
                application = New RevisionManager.Application()
                insight = CType(application.Insight, RevisionManager.Insight)


  Dim FilesToBeRenamed = "http://Test/Engineering/GTAC_AddToLibrary.par"
                Dim DestinationPathsOfRenamedFiles = "http://Test/Engineering/GTAC_AddToLibrary_Renamed.par"


                insight.RenameFiles(FilesToBeRenamed, DestinationPathsOfRenamedFiles)
            Catch ex As System.Exception
                Console.WriteLine(ex)
            End Try
        End Sub
    End Class

Hardware/Software Configuration

Platform: AMD64
OS: windows
OS Version: 764
Product: SOLID_EDGE
Application: AUTOMATION
Version: V220MP5
Function: API_DOCUMENT

Ref: 002-8016517