FullName Property Example

This example displays the path and filenames of the following objects: System, Session, QuickPad, and Toolbar.

Sub Main()

 Dim Sys As Object, Sess As Object, QPad As Object, TBar As Object

 

 Set Sys = CreateObject("EXTRA.System")

' Assumes an open session

 

 ' This example demonstrates how to use the FullName property
 ' with the System object.

 fqProgram$ = Sys.FullName

 MsgBox "The current fully qualified path and filename to EXTRA! is " + fqProgram$ + "."

 

 ' This example demonstrates how to use the FullName property with
 ' a Session object. Here, the ActiveSession property was used to
 ' get a session object.

 Set Sess = Sys.ActiveSession

 fqProfile$ = Sess.FullName

 MsgBox "The fully qualified path and filename to the current session profile is " + fqProfile$ + "."

 

 ' This example demonstrates how to use the FullName property
 ' with a QuickPad object. Here, the ActiveSession property was
 ' used to get a session object.

 Set QPad = Sess.QuickPads.Item(1)

 QPad.Visible = True

 fqQPad$ = QPad.FullName

 MsgBox "The fully qualified path and filename to the current QuickPad is " + fqQPad$ + "."

 

 ' This example demonstrates how to use the FullName property with
 ' a QuickPad object. Here, the ActiveSession property was used to
 ' get a session object.

 Set TBar = Sess.Toolbars.Item(1)

 TBar.Visible = True

 fqTBar$ = TBar.FullName

 MsgBox "The fully qualified path and filename to the current Toolbar is " + fqTBar$ + "."

 

 MsgBox "Done."

End Sub