TY,
I got it close. I needed to re Dim and set oDoc to be able to read the FullFilename. The issue now is the indexes do not match up, ie the filenames do not match the part numbers. I think I need to access the FullFileName via the BOMRow, but I haven't found that yet.
{code}
Private Sub QueryBOMRowProperties(oBOMRows As BOMRowsEnumerator, ItemTab As Long)
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
ItemTab = ItemTab + 3
' Iterate through the contents of the BOM Rows.
Dim i As Long
For i = 1 To oBOMRows.Count
' Get the current row.
Dim oRow As BOMRow
Set oRow = oBOMRows.Item(i)
'Set a reference to the primary ComponentDefinition of the row
Dim oCompDef As ComponentDefinition
Set oCompDef = oRow.ComponentDefinitions.Item(1)
Dim oCompOcc As ComponentOccurrence
Set oCompOcc = oDoc.ComponentDefinition.Occurrences.Item(i)
Dim FFileRow As String
'Get the Full Path Filename
FFileRow = oCompOcc.Definition.Document.FullFileName
'There is other code here to get the Item Number, P/N, Qty, etc. and previous info to open the file.
Write #1, oRow.ItemNumber; oPartNumProperty.Value; oRow.ItemQuantity; FFileRow
Next
{code}
Edited by: pkquat on Apr 7, 2009 3:00 PM
Edited by: pkquat on Apr 7, 2009 4:24 PM