Как открыть файл из конкретной папки?

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
s2176
Местный житель
Сообщения: 473
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Новосибирск

Как открыть файл из конкретной папки?

Сообщение s2176 »

Добрый день!
В интерфейсе нужно заполучить имя файла.
Использую для этого getfileName('*.xls','Выберите файл для загрузки данных').
Но очень хочется сделать так, чтобы открывалась сразу конкретная папка, из которой бы и выбирался файл.
Можно ли так сделать?
Кто сказал, что бесполезно биться головой об стену?!
Den
Местный житель
Сообщения: 1844
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Сообщение Den »

FilePath:='C:\Для Галактики\';
GetFileName(Filepath,'выберите файл');
Mekhtiev
Постоянный гость
Сообщения: 92
Зарегистрирован: 24 янв 2013, 16:33

Re: Как открыть файл из конкретной папки?

Сообщение Mekhtiev »

а конкретный файл?
ВБР РУЛИТ)))ИС3
Mekhtiev
Постоянный гость
Сообщения: 92
Зарегистрирован: 24 янв 2013, 16:33

Re: Как открыть файл из конкретной папки?

Сообщение Mekhtiev »

парсить имя файла с путём файла и определять подходит ли полученная строка условию что то муторно.
ВБР РУЛИТ)))ИС3
Mekhtiev
Постоянный гость
Сообщения: 92
Зарегистрирован: 24 янв 2013, 16:33

Re: Как открыть файл из конкретной папки?

Сообщение Mekhtiev »

РЕШЕНО для открытия конкретного файла

Код: Выделить всё

 #FileName2:
         {
          FileName2:= GetFileName ('*.csv','Выберите файл с отчетом Zapravki');

          if (FileName2 like '%test.txt)
          {
              LoadFile2();
              Message('Файл загружен!!!');
              ReReadRecord(tnwialonzapravki);
          }
          else Message ('Выбран не верный файл');
         };                                         
ВБР РУЛИТ)))ИС3
Ответить