Sub Main
' функция GetFilePath вызывает меню выбора файла
'(параметры функции см. в разделе User Input помощи по языку скриптов Sax Basic)
Debug.Print GetFilePath(, "sav;sps", ,"Укажите файл", 0)
End Sub