Path Property Example

This example first displays the path of the System object, then the active Session object.

Sub Main()

 Dim Sys As Object

 Set Sys = CreateObject("EXTRA.System")

' Assumes an open session

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

 CurrentProgramPath$ = Sys.Path

 MsgBox "The current path to EXTRA! is " + CurrentProgramPath$ + "."

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

 CurrentProfilePath$ = Sys.ActiveSession.Path

 MsgBox "The path to the current session profile is " + CurrentProfilePath$ + "."

 MsgBox "Done."

End Sub