Get file name from user then define path by macro

Sub Main
' gets a file path (see User Input in Sax Basic Language for options)
' Defines a macro !pathd which contains the path (without the file name)
' of the selected file
' If syntax is written using !pathd instead of hard coded path for instance
' GET FILE=!pathd + 'mydata.sav'.
' This script allows user to browse to the desired folder and the macro is
' defined by the script.
' Ray
	Dim strCmd As String
	Dim strPath As String
	Dim strFPath As String
	strFPath =GetFilePath(, , ,"Select any file from the required folder", 0)
	If strFPath = "" Then Exit Sub 'User clicked Cancel
	strPath = Mid(strFPath,1,InStrRev(strFPath,"\\"))
	strCmd="DEFINE !pathd()'" & strPath & "'!ENDDEFINE"
	Debug.Print strCmd
	objSpssApp.ExecuteCommands strCmd, False

End Sub