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

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

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


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


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

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


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

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


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

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

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

Да, выдаёт ошибку если нажать на <<отмену>>
Что мне нужно сделать, чтобы не было ошибки?
...
Рейтинг: 0 / 0
GETFILE
    #39332870
Дед Евгений
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можешь воспользоваться API функцией:
cNameDirReport = '\\172.16.202.2\ARXIV\ОБРАБОТКА_МАТЕРИАЛОВ\'
loShellPapka = CreateObject("Shell.Application")
loShellPapka.Open(cNameDirReport)
...
Рейтинг: 0 / 0
GETFILE
    #39332899
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
-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
GETFILE
    #39333214
-tim-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте!
Спасибо всем, кто откликнулся на мою проблему!
Очень Вам всем благодарен.
Я сделал так, как мне предложил Dima T,
Спасибо Dima T,
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / GETFILE
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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