Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Based on your idea, I further explored: I found the following works well except it does not carry the file extension although it is the full file name. 

'		Try
'			Dim oParentocc As ComponentOccurrence
'			oParentocc = oOcc.ParentOccurrence
'			oParent = oParentocc.Name
'		Catch
'			MessageBox.Show("@ Catch", "Title")
'			oParent = System.IO.Path.GetFileNameWithoutExtension(oOcc.Parent.Document.DisplayName)
'		End Try
			docFile = oOcc.Definition.Document
    		oParent = System.IO.Path.GetFileNameWithoutExtension(docFile.FullFileName)

 

Do you think can I have the file extension as well: Thanks.