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