FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9146
Вход
Любой путь программы

позволяет располагать программу в любом месте на диске


 
Прислал: Pyhar   Категория: Инструменты разработчика


Любой путь программы

*процедура определения и установка пути программы
*отучает программу от привязанности к пути на диске

xp=ALLTRIM(SYS(16))
xpl=LEN(xp)
i=1
DO WHILE LEFT(RIGHT(xp,i),1)#'\'
i=i+1
xpl=xpl-1
ENDDO
xp=LEFT(xp,xpl)
SET DEFAULT TO &xp
retu
 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.682)
Дополнения пользователей
Любой путь программы
[+][?]
Александр
12.01.05 11:40:47

А у меня вот так работает
store sys(5)+sys(2003)+'\' to TekDir
Set default to &TekDir
Радченко Виктор Вадимович
12.01.05 11:47:40

Можно одной строкой :
Application.DefaultFilePath = ADDBS(JUSTPATH(SYS(16, PROGRAM(-1))))
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика