Replace Reference in vb net

[Anonymous]

Hi All,

how to replace references in VB Net

Sub ReplaceFile(parent As String, oldfilename As String, newfilename As String)
        Dim oDoc As Inventor.Document

        oDoc = OpenFileCad(parent)

        If IsNothing(oDoc) Then
            Exit Sub
        End If

        If Not FileExists(newfilename) Then
            Exit Sub
        End If

        Dim allReferencedFiles As Object
        allReferencedFiles = oDoc.File.ReferencedFileDescriptors
        Dim ofd As FileDescriptor = Nothing

        oldfilename = oldfilename.ToLower
        Dim t As String = ""
        For Each ofd In allReferencedFiles
            Debug.Print(ofd.FullFileName & "  " & FileExists(ofd.FullFileName).ToString)
            t = ofd.FullFileName.ToLower
            If t = oldfilename Then
		ofd.ReplaceReference(newfilename)
                Exit For
            End If
        Next

End Sub

I tried with this code but does not work

Thanks Regards

[Anonymous]

Sub ReplaceFileApp(parent As String, oldfilename As String, newfilename As String)

        Dim oADoc As ApprenticeServerDocument
        Dim oApprentice As ApprenticeServerComponent
        oApprentice = New ApprenticeServerComponent
        oADoc = oApprentice.Open(parent)
      
        Dim oFD As FileDescriptor
        For Each oFD In oADoc.File.ReferencedFileDescriptors
            If oFD.FullFileName.ToLower = oldfilename.ToLower Then
                oFD.ReplaceReference(newfilename)
                oADoc.Update

            End If
        Next

    End Sub

[MechMachineMan]

1. Replaced file references will not stick in apprentice as you cannot save in apprentice

2. Files need to have shared ancestry to be able to replace them using that method. An alternative is to use Occurrence.Replace()

[adam.nagy]

Hi,

Just an FYI about this article which might also be useful:

http://adndevblog.typepad.com/manufacturing/2016/03/replacereference-vs-filesaveas-vs-onfileresoluti...

Cheers,