VBA Objet to Read tor edit the Links in a CADProduct document

Hi,

The bellow CATScript will give you the path but only for first level in the Product. You need to have the CATProduct in Design Mode. If you need more , you have to modify the code. Code is not mine, unfortunately I didn't notice from which forum I get it.

Language="VBSCRIPT"

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set products1 = product1.Products

For i = 1 To products1.Count

ElementName = products1.Item(i).ReferenceProduct.Parent.Name ' Extract reference name
ElementPath = products1.Item(i).ReferenceProduct.Parent.Path ' Extract reference path
FullPath = ElementPath & "\" & ElementName ' 1 + 1 = 2

If Right(ElementName,7) = "CATPart" Then
Msgbox products1.Item(i).Name & " -> Link (CATPart) -> " & FullPath ' Note products1.Item(i).Name is current instance name
Elseif Right(ElementName,7) = "Product" Then

If ElementName = productDocument1.Name Then
Msgbox products1.Item(i).Name & " -> Link (Component) -> " & FullPath
Else
Msgbox products1.Item(i).Name & " -> Link (CATProduct) -> " & FullPath

End If
End If
Next

End Sub

Regards
Fernando

I have since learned that Catia uses links of many types
CCP cut Copy Paste
KWE Knowlede Expert, for Parameters
Instance - for Part to part like adaptivety in INventor or realations in Solid works
View Links for drawings and several others.

I am assuming there is a way to write a VBA to automatically write and read this links from part files, and by know where they are moving to or from, (server or Local), adjust the links in the child files, so that every file knows where to find what it needs.

The folder structure does not change except for the Prefix part of the path. For Example c:\myworkspace\Dan\Project...
may be
c:\myworkspace\Mark|Project on another machine
or
c:\catiafileserver\mainfiles\project on the server

We are NOT using Smart Team and have no plans to.

Any more ideas or examples from anyone would be appreciated to point me in the rightr direction.

Thanks is advance.