Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / GETFILE / 7 сообщений из 7, страница 1 из 1
24.10.2016, 14:24
    #39332762
-tim-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GETFILE
Здравствуйте!
Обращаюсь к Вам за помощью.
Помогите пожалуйста!
Пример
Path_1 = '\\172.16.202.2\ARXIV\ОБРАБОТКА_МАТЕРИАЛОВ\'
Как мне открыть папку с отображением всех файлов по указанному пути?

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

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


Возможно Вы мне сможете предложить другой вариант?
Спасибо за ваше время.
...
Рейтинг: 0 / 0
24.10.2016, 14:34
    #39332779
asdor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GETFILE
Навскидку примерно так.
Где то сохраняешь текущую папку.
далее
Код: sql
1.
2.
CD Path_1
GETFILE('*.*')


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

Может и др. способ есть)
...
Рейтинг: 0 / 0
24.10.2016, 14:44
    #39332793
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GETFILE
Код: sql
1.
LocFile(Path_1 + '*.*')


только оберни в TRY ... CATCH т.к. он ошибку выдает если отмену нажать.
...
Рейтинг: 0 / 0
24.10.2016, 15:02
    #39332826
-tim-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GETFILE
Dima T,

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


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

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

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

Да, выдаёт ошибку если нажать на <<отмену>>
Что мне нужно сделать, чтобы не было ошибки?
...
Рейтинг: 0 / 0
24.10.2016, 15:35
    #39332870
Дед Евгений
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GETFILE
Можешь воспользоваться API функцией:
cNameDirReport = '\\172.16.202.2\ARXIV\ОБРАБОТКА_МАТЕРИАЛОВ\'
loShellPapka = CreateObject("Shell.Application")
loShellPapka.Open(cNameDirReport)
...
Рейтинг: 0 / 0
24.10.2016, 15:54
    #39332899
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GETFILE
-tim-Что мне нужно сделать, чтобы не было ошибки?
Обернуть в TRY ... CATCH, т.е. перехватить ошибку.
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
try
  Get_dir = LocFile(path_dir + '*.*')
catch
  Get_dir = ''
endtry

IF .not.EMPTY(Get_dir) && Сделан выбор
...
...
Рейтинг: 0 / 0
25.10.2016, 06:11
    #39333214
-tim-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GETFILE
Здравствуйте!
Спасибо всем, кто откликнулся на мою проблему!
Очень Вам всем благодарен.
Я сделал так, как мне предложил Dima T,
Спасибо Dima T,
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / GETFILE / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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