Определение макроса с рабочей папкой по заданному пользователем имени файла

Sub Main
' Скрипт сначала получает путь к файлу, указанному пользователем
' (см. параметры функции GetFilePath в разделе User Input справки по языку Sax Basic).
' Затем создаёт макрос !pathd, содержащий путь к указанному файлу (без имени файла).
' Удобно, если вы пишете синтаксис без задания жёстких путей, например как
' GET FILE=!pathd + 'mydata.sav'.
' Тогда вы с помощью этого скрипта можете быстро выбрать нужный путь, и ваш синтаксис
' будет работать с заданным путём к файлам.
' Рэй
	Dim strCmd As String
	Dim strPath As String
	Dim strFPath As String
	strFPath =GetFilePath(, , ,"Выберите любой файл из нужной папки", 0)
	If strFPath = "" Then Exit Sub 'Пользователь нажал Cancel
	strPath = Mid(strFPath,1,InStrRev(strFPath,"\\"))
	strCmd="DEFINE !pathd()'" & strPath & "'!ENDDEFINE"
	Debug.Print strCmd
	objSpssApp.ExecuteCommands strCmd, False
End Sub