Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 GETFILE  [new]
-tim-
Member

Откуда:
Сообщений: 41
Здравствуйте!
Обращаюсь к Вам за помощью.
Помогите пожалуйста!
Пример
Path_1 = '\\172.16.202.2\ARXIV\ОБРАБОТКА_МАТЕРИАЛОВ\'
Как мне открыть папку с отображением всех файлов по указанному пути?

GETFILE('*.*') - всё хорошо, но не задаёт каталог, который отображается при первом появлении диалогового окна.

GETDIR()- Задает каталог, который отображается при первом появлении диалогового окна, но это для папок


Возможно Вы мне сможете предложить другой вариант?
Спасибо за ваше время.
24 окт 16, 14:24    [19815820]     Ответить | Цитировать Сообщить модератору
 Re: GETFILE  [new]
asdor
Member

Откуда: Москва
Сообщений: 506
Навскидку примерно так.
Где то сохраняешь текущую папку.
далее
CD Path_1
GETFILE('*.*')

Возврат в сохраненную папку.

Может и др. способ есть)
24 окт 16, 14:34    [19815881]     Ответить | Цитировать Сообщить модератору
 Re: GETFILE  [new]
Dima T
Member

Откуда:
Сообщений: 15271
LocFile(Path_1 + '*.*')

только оберни в TRY ... CATCH т.к. он ошибку выдает если отмену нажать.
24 окт 16, 14:44    [19815938]     Ответить | Цитировать Сообщить модератору
 Re: GETFILE  [new]
-tim-
Member

Откуда:
Сообщений: 41
Dima T,

Спасибо, Вы мне уже не первый раз помогаете.
Не совсем я понял Вас
<<только оберни в TRY ... CATCH>>


Я написал вот так

Get_dir = LocFile(path_dir + '*.*')

IF .not.EMPTY(Get_dir) && Сделан выбор
! &Get_dir
ENDIF

Да, выдаёт ошибку если нажать на <<отмену>>
Что мне нужно сделать, чтобы не было ошибки?
24 окт 16, 15:02    [19816086]     Ответить | Цитировать Сообщить модератору
 Re: GETFILE  [new]
Дед Евгений
Member

Откуда: Московская область
Сообщений: 118
Можешь воспользоваться API функцией:
cNameDirReport = '\\172.16.202.2\ARXIV\ОБРАБОТКА_МАТЕРИАЛОВ\'
loShellPapka = CreateObject("Shell.Application")
loShellPapka.Open(cNameDirReport)
24 окт 16, 15:35    [19816329]     Ответить | Цитировать Сообщить модератору
 Re: GETFILE  [new]
Dima T
Member

Откуда:
Сообщений: 15271
-tim-
Что мне нужно сделать, чтобы не было ошибки?

Обернуть в TRY ... CATCH, т.е. перехватить ошибку.
try
  Get_dir = LocFile(path_dir + '*.*')
catch
  Get_dir = ''
endtry

IF .not.EMPTY(Get_dir) && Сделан выбор
...
24 окт 16, 15:54    [19816436]     Ответить | Цитировать Сообщить модератору
 Re: GETFILE  [new]
-tim-
Member

Откуда:
Сообщений: 41
Здравствуйте!
Спасибо всем, кто откликнулся на мою проблему!
Очень Вам всем благодарен.
Я сделал так, как мне предложил Dima T,
Спасибо Dima T,
25 окт 16, 06:11    [19818089]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить