FullName property example

Sub FullName_Example()
' This example uses the FullName property to find the full
' name of the current drawing, and of the application.
    Dim docName As String
    docName = ThisDrawing.FullName
    MsgBox "The full name of the current drawing is " & docName
    Dim appName As String
    appName = ThisDrawing.Application.FullName
    MsgBox "The full name of the current application is " & appName
End Sub