|
Действия ...
Период между сообщениями больше года.
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
24.04.2007, 13:36
|
|||
|---|---|---|---|
GETDIR() и сетевые папки |
|||
|
#18+
Кто-нибудь знает какой-нибудь аналог GETDIR(), а то частенько надо сетевые папки выбирать, а он только диски предлагает. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
24.04.2007, 13:56
|
|||
|---|---|---|---|
|
|||
GETDIR() и сетевые папки |
|||
|
#18+
Не знаю какой у тебя VFP, у меня VFP90SP1, то ?GETDIR("","","",64) выдаст тебе с сетевыми папками. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
24.04.2007, 15:05
|
|||
|---|---|---|---|
GETDIR() и сетевые папки |
|||
|
#18+
Владимир САНе знаю какой у тебя VFP, у меня VFP90SP1, то ?GETDIR("","","",64) выдаст тебе с сетевыми папками. К сожалению VFP6 так не может :( А апишных функций для этих целей нет? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
24.04.2007, 16:09
|
|||
|---|---|---|---|
GETDIR() и сетевые папки |
|||
|
#18+
alex111100Это аналог GetFile() а getfile() и в VFP6 сетевые папки открывает Выбор файла и отсечение пути не устраивает т.к. в выбираемой папке файлов может и не быть на момент выбора Наверно пора на 9-ку переходить :) а пока прийдется дальше копипастить, только по телефону это муторно объяснять "продвинутым" пользователям ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.03.2014, 15:03
|
|||
|---|---|---|---|
|
|||
GETDIR() и сетевые папки |
|||
|
#18+
Dima T, попробуй написать например так getdir("\\server1\") как бы сразу путь к сетевой папке, надеюсь это поможет) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.03.2014, 15:12
|
|||
|---|---|---|---|
GETDIR() и сетевые папки |
|||
|
#18+
Думаешь 7 лет спустя вопрос все еще актуален? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.03.2014, 15:29
|
|||
|---|---|---|---|
|
|||
GETDIR() и сетевые папки |
|||
|
#18+
Поиграйся с этим: WorkCdd = SYS(5)+SYS(2003) DECLARE SHORT SetCurrentDirectory IN kernel32.dll string d DECLARE integer GetLastError IN kernel32.dll DECLARE integer SetErrorMode IN kernel32.dll integer d = SetErrorMode(0x1) pShell = CREATEOBJECT("WScript.Shell") ContractPath = ALLTRIM(Thisform.Text1.value) nYesDir = SetCurrentDirectory(ContractPath) IF nYesDir = 0 MESSAGEBOX("Такого каталога не существует",16,"Папка") ELSE MESSAGEBOX("Путь к каталогу указан верно",64,"Папка") ENDIF CD (WorkCdd) RELEASE pShell ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=41&tablet=1&tid=1582720]: |
0ms |
get settings: |
8ms |
get forum list: |
12ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
66ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
45ms |
get tp. blocked users: |
2ms |
| others: | 312ms |
| total: | 468ms |
| 0 / 0 |
