Inventor, scan files created with education version

[matthias.schindler]

Hi,

Is there a way to scan inventor files with VBA to see, whether that created with an education version or not, and export in an CSV/TXT file to see the result?

If yes, please provide me a sample code.

I hope you understand what I try to say!

Many thanks!

Regards,

[bradeneuropeArthur]

With this:

Public Sub loopprop()

Dim a As Application
Set a = ThisApplication

Dim b As Document
Set b = a.ActiveDocument

Dim pr As Property
Dim ps As PropertySet

'LastUpdatedWith

For Each ps In b.PropertySets
Debug.Print ps.DisplayName

For Each pr In ps
If pr.DisplayName = "LastUpdatedWith" Then
MsgBox pr.Expression
' write this to text file.....
End If
'Debug.Print pr.DisplayName & vbTab & pr.Expression
Next
Next
End Sub