Get file type of embedded files

[harvey_craig2RCUH]

I have two file embedded on my drawing. A jpeg and spreadsheet:

I am trying to write a rule that loops through the 3rd party items and deletes if it its a spreadsheet:

Dim oDoc As Inventor.Document = ThisApplication.ActiveDocument
Dim ref As Inventor.ReferencedOLEFileDescriptor
For Each ref In oDoc.ReferencedOLEFileDescriptors
	MsgBox(ref.DisplayName)
	If ref.DisplayName.EndsWith(".xlsx") Then
		ref.Delete 'delete reference
	End If
Next

This is wrong because the DisplayName returns "Embedding 5" etc. How can I differentiate between the file types? I have looked through every option in Intellisense and they both file types give the same result for each.

Thanks,

Harvey

[marcin_otręba]

use .fullfilename instead displayname.

You can also check:

[harvey_craig2RCUH]

The .fullfilename returns an empty string, I'm assuming because it's embedded rather than linked. 

It's not a  fileDescriptor Object it's a ReferencedOLEFileDescriptor Object. From there you can access the fileDescriptor object but the options in there that are not included in the ReferencedOLEFileDescriptor don't work and returns a 'Object reference not set to an instance of an object.' error.

Thanks for having a look at it,

Cheers,

Harvey

[marcin_otręba · Accepted solution]

sorry, i was checking it for linked olefiledescriptor, and in this situation it works. When i try with embedded olefiledescriptor it is empty as you wrote.

in this situation for omit this problem in future there is workaround to name it when you add it trough code like:

.DisplayName = "xlsembededfile"

[harvey_craig2RCUH]

Perfect, that works great!