Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Текущий путь, Определений пути к директорию 
V
    Опции темы
wedmed
Дата 16.1.2009, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 26.12.2008

Репутация: нет
Всего: нет



Вопрос покажется простым, но все таки:

перепробовал

CURDIR(),SYS(2003) - путь указаный в SET DEFAULT TO

SYS(2004), HOOM() - путь к exe запуска VFP8

FULLPATH( " FILE " ) - необходимо знать имя файла (а если не известно, или как узнать???)

 к примеру:
в SET DEFAULT TO "C:\USERS\AAAA"

а запускается файл "D:\DOCUMENTS\PROG!.PRG"

Как узнать программно путь к файлу запустившему VFP8 (т.е. PROG!.PRG)???

Добавлено через 13 секунд
А
PM MAIL   Вверх
Данкинг
Дата 16.1.2009, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130



У меня вот так вот написано (криво, но зато работает  smile ):
Код

_path_=STRTRAN(LOWER(FULLPATH('start.prg')),LOWER('start.prg'))



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
wedmed
Дата 17.1.2009, 01:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 26.12.2008

Репутация: нет
Всего: нет




Привт.

Не знаю почему но уменя этот код не работает. Все равно выводит путь прописаный в SET DEFAULT TO !?!?!?!
PM MAIL   Вверх
Данкинг
Дата 17.1.2009, 02:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130



Как это не работает? Тут же берётся конкретный путь к файлу start.prg ! Т.е. ничто иное влиять на него не может.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Bishop
Дата 17.1.2009, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 188
Регистрация: 3.6.2005
Где: Минск, Беларусь

Репутация: нет
Всего: 16



wedmed, 
Код
start_prog_name = Sys(16, 0)

PM WWW ICQ   Вверх
wedmed
Дата 17.1.2009, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 26.12.2008

Репутация: нет
Всего: нет



Цитата(Данкинг @ 17.1.2009,  02:05)
Как это не работает? Тут же берётся конкретный путь к файлу start.prg ! Т.е. ничто иное влиять на него не может.

Для этого ты указываешь, имя который самже и запустил (с такой же простотой можно в лоб изменить и SET DEFAULT TO), а без этого как-нибудь можно, или узнать имя файла програмно.

A        start_prog_name = Sys(16, 0)

? start_prog_name     -   не чего не выводит (ПУСТАЯ СТРОКА)
PM MAIL   Вверх
Данкинг
Дата 17.1.2009, 23:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130



Цитата(wedmed @  17.1.2009,  22:12 Найти цитируемый пост)
Для этого ты указываешь, имя который самже и запустил 

Тогда я не понял, что тебе нужно! smile 
Что значит
Цитата(wedmed @  16.1.2009,  18:34 Найти цитируемый пост)
Как узнать программно путь к файлу запустившему VFP8 (т.е. PROG!.PRG)???

?!

Цитата(wedmed @  17.1.2009,  22:12 Найти цитируемый пост)
? start_prog_name     -   не чего не выводит (ПУСТАЯ СТРОКА) 

Это я сейчас тоже попробовал. Если создать .prg и его запустить, то ?Sys(16, 0) выведет путь к .fxp, в который этот .prg откомпилировался.

Это сообщение отредактировал(а) Данкинг - 17.1.2009, 23:29


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
wedmed
Дата 18.1.2009, 00:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 26.12.2008

Репутация: нет
Всего: нет



Когда запускаешь файл (любой: таблицу, форму, базу, програмный, и т.д., нажав на нем Enter) , который вызывает 

загрузку файла:  C:\Program Files\Microsoft Visual FoxPro 8\vfp8.exe, где то же должен хранится путь к файлу, который 

вызвал загрузку vfp8.exe, и хочу узнать путь к нему (вобщем путь к файлу с каторым сейчас работае vfp8)
PM MAIL   Вверх
Данкинг
Дата 18.1.2009, 00:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130



Ты файл запускаешь из винды? Тогда при чём здесь вообще фоксовые функции?

Цитата(wedmed @  18.1.2009,  00:14 Найти цитируемый пост)
где то же должен хранится путь к файлу, который 
вызвал загрузку vfp8.exe

Не факт... Где ему храниться-то?

Это сообщение отредактировал(а) Данкинг - 18.1.2009, 00:43


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
wedmed
Дата 19.1.2009, 00:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 26.12.2008

Репутация: нет
Всего: нет



Ну он же сохраняет изменеия файла (туда куда надо)!!!

А вообще мне в принципе хватит :         start_prog_name = Sys(16, 0)       (Спасибо Bishop), разобрался.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Foxpro/Clipper/Dbase"
MoLeX

Запрещается!

1. Публиковать ссылки для чисто рекламных целей.

2. Оффтопить, флеймить, говорить не культурно.

Пожалуйста, адекватно задавайте свой вопрос. Тема должна создаваться с названием характеризующем Вашу проблему.

Задавайте вопросы правильно - как спросите, так вам и ответят.

Разрешено!

Давать ссылки на статьи, обзоры, если это не нарушает первый пункт правил.

Задавая вопрос, давайте нужную информацию касающуюся Вашей проблемы. Этим вы ускорите полезные ответы.

P.S. Размещение рекламы будет строго наказываться!



Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, MoLeX

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Foxpro/Clipper/Dbase | Следующая тема »


 




[ Время генерации скрипта: 0.0659 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.