powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с фу-ей Curdir()
7 сообщений из 7, страница 1 из 1
Помогите с фу-ей Curdir()
    #33562165
Саша-7
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В config.fpw прописываю:

public pDir
pDir = curdir()
set defa to &pDir

В результате путь умолчания и есть эта папка - куда бы я её не разместил...

Как получить такой же результат без файла config.fpw...
Написал такое же в init формы - не работает ... может есть выход?

Спасибо
...
Рейтинг: 0 / 0
Помогите с фу-ей Curdir()
    #33562396
Doktor Gradus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в главной программе проекта (не в форме, а в prg -- в закладке Code) напишите:

Код: plaintext
1.
application.DefaultFilePath = addbs( justpath( sys(  16 , program( - 1  )))

и будет вам щасте,.

Или можно так, в той же программе вместо первого кода вот этот:

Код: plaintext
1.
2.
public ls_Default_path
ls_Default_path = allt( sys(  2003  ))

можно делать set dafault to &macro_variable и одну из вышеупомянутых переменных подставлять вместо macro_variable , а можно использовать так:

Код: plaintext
1.
use application.DefaultFilePath + '\tables\MyTable.dbf' in  0  alias MyTableAlias [ shared | exclusive ] [again]
...
Рейтинг: 0 / 0
Помогите с фу-ей Curdir()
    #33562400
Doktor Gradus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Конечно, не set dafault to ¯o_variable а set default to &macro_variable
...
Рейтинг: 0 / 0
Помогите с фу-ей Curdir()
    #33562414
Саша-7
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Щастье есть :)
Большое спасибо
...
Рейтинг: 0 / 0
Помогите с фу-ей Curdir()
    #33562434
Doktor Gradus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
рад, что вам помогло.
да и по поводу curdir() -- функция даёт путь к текущему каталогу, но обычно без буквы диска.

поэтому обычно, если эту функцию используют то обрамляют её другой функцией fullpath()

вот так:

ls_Path = fullpath( curdir ())

set default to ( ls_Path ) && скобки в данном случае просто другой вид макроподстановок.
...
Рейтинг: 0 / 0
Помогите с фу-ей Curdir()
    #33562485
Саша-7
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А можно ли выкрутиться здесь:

Я запускаю app например с e:\myproj\my.app
а умолчание мне надо, например, любое место но то где есть определённый файл - path.dbf (например d:\ttt\tt\t\path.dbf)
...
Рейтинг: 0 / 0
Помогите с фу-ей Curdir()
    #33578615
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi Саша!

> умолчание мне надо, например, любое место но то где есть определённый
> файл - path.dbf (например d:\ttt\tt\t\path.dbf)

Можно - но для этого надо просканировать все доступные папки на предмет
наличия там соответствующего файла - а как иначе ты думал? Чудес не бывает.


Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с фу-ей Curdir()
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]