DefaultFilePath Property Example

This example displays the default file path.

Sub Main()

 Dim Sys As Object

 Set Sys = CreateObject("EXTRA.System")

 DefaultPath$ = Sys.DefaultFilePath

 MsgBox "The current default file path is " + DefaultPath$ + "."

End Sub