ilogic to replace Model Reference in idw

[Anonymous]

Hi
I have a lot of idw's where I am going
to replace Model Reference  ( ipt or iam) in an idw.

example :
12-45.idw has model reference 890-45.ipt (or iam), but it should be change to 12-45.ipt (or iam)

 is there anyone who has a suggestion for an ilogic code that can scan a folder and change all idw's

or just change the model reference when the idw is opened

[MechMachineMan]

Here is the bulk of the working code.

oDoc = The Document which you want the reference changed in.
oDocToSwap = SomeDocument that you want to remove	

For Each oRefDoc in oDoc.ReferencedDocumentDescriptors
		If oRefDoc.FullDocumentName = oDocToSwap Then
			oFD = oRefDoc.ReferencedFileDescriptor
			
			'Filter the new file to the same file extension			
			oNewFileRef = FileBrowse("Select new reference!" ,"*" & Right(oRefDoc.ReferencedFileDescriptor.FullFileName, 4))

			If oNewFileRef = "" Then
				MsgBox("New selection ref invalid!" & vbLf & vbLf & "Aborting rule!")
				Exit Sub
			End If
			oFD.ReplaceReference(oNewFileRef)
			Exit For
		End If
	Next

Private Function FileBrowse(oTitle As String, oFilterStr As String) As String

    '"Inventor Files (*.iam;*.ipt;*.idw;*.dwg)|*.iam;*.ipt;*.idw;*.dwg|All Files (*.*)|*.*"
    '       Note, for function, we need to pass the additional items with a colon.

    Dim oFileDlg As FileDialog
    Call ThisApplication.CreateFileDialog(oFileDlg)

    On Error Resume Next

    With oFileDlg
        .FilterIndex = 1
        .MultiSelectEnabled = False
        .CancelError = True
        .Filter = "Inventor Files (" & oFilterStr & ")|" & oFilterStr & "|All Files (*.*)|*.*"
        .DialogTitle = oTitle
        .ShowOpen
    End With
    
    If Err.Number <> 0 Then
        MsgBox("Error Exists")

    ElseIf Not oFileDlg.FileName = "" Then
        Dim fNames As Object
        fNames = Split(oFileDlg.FileName, "|")
        
        Dim curName As Object
        Dim lstSource As Object
       
        For Each curName In fNames
            lstSource.AddItem(curName)
        Next curName
    End If
    
    Return oFileDlg.FileName
End Function