FoxClub Forums > Visual Foxpro, Foxpro for DOS > Аналог функции GETFILE() ::

Список Форумов :: Visual Foxpro, Foxpro for DOS

Темы: << • >>

:: Список Сообщений • Новая Тема • Поиск • Войти

Аналог функции GETFILE()

OlegA
Автор

Сообщений: 522
Откуда: Иркутск

Дата: 15.01.21 10:44:08

Добрый день.
Нужен аналог функции GETFILE(), чтобы возвращало имя с учетом регистра.
Функции GETFILE() возвращает в верхнем регистре.

Re: Аналог функции GETFILE()

PaulWist

Сообщений: 13587

Дата: 15.01.21 11:04:18

MsComDlg.CommonDialog

------------------

Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)

Re: Аналог функции GETFILE()

dimuhametov

Сообщений: 1517
Откуда: Костанай

Дата: 15.01.21 12:49:50

OlegA
Добрый день.
Нужен аналог функции GETFILE(), чтобы возвращало имя с учетом регистра.
Функции GETFILE() возвращает в верхнем регистре.

  
  PROCEDURE myGETFILE  
  LPARAMETERS cFileExtensions,cText,cOpenButtonCaption,nButtonType,cTitleBarCaption  
  LOCAL m.lcfile  
  m.cFileExtensions=IIF(EMPTY(m.cFileExtensions),'',m.cFileExtensions)  
  m.cText=IIF(EMPTY(m.cText),'',m.cText)  
  m.cOpenButtonCaption=IIF(EMPTY(m.cOpenButtonCaption),'',m.cOpenButtonCaption)  
  m.nButtonType=IIF(EMPTY(m.nButtonType),0,m.nButtonType)  
  m.cTitleBarCaption=IIF(EMPTY(m.cTitleBarCaption),'',m.cTitleBarCaption)  
  m.lcfile=GETFILE(m.cFileExtensions,m.cText,m.cOpenButtonCaption,m.nButtonType,m.cTitleBarCaption)  
  TRY   
  	oFSO=CreateObject("Scripting.FileSystemObject")        
  	loDir=oFSO.GetFile(m.lcfile)  
  	m.lcfile=loDir.path   
  CATCH   
  ENDTRY   
  RETURN m.lcfile

------------------

Незнание делает жизнь такой интересной.

Re: Аналог функции GETFILE()

akvvohinc

Сообщений: 3186
Откуда: Москва

Дата: 15.01.21 13:45:26

OlegA
Нужен аналог функции GETFILE(), чтобы возвращало имя с учетом регистра.

После того, как имя файла с помощью GETFILE() получено, можно узнать имя этого файла с учетом регистра с помощью функции ADIR() с параметром nFlag=1.

Re: Аналог функции GETFILE()

OlegA
Автор

Сообщений: 522
Откуда: Иркутск

Дата: 18.01.21 07:04:01

akvvohinc
OlegA
Нужен аналог функции GETFILE(), чтобы возвращало имя с учетом регистра.

После того, как имя файла с помощью GETFILE() получено, можно узнать имя этого файла с учетом регистра с помощью функции ADIR() с параметром nFlag=1.

Спасибо большое, все просто если читать мат.часть. То же была мысль про ADIR(), запустил со стандартными параметрами результат тот же, а почитать хелп внимательно даже мысли не было.
Всем спасибо, кто откликнулся.

Темы: << • >>

:: Список Сообщений • Новая Тема • Поиск • Войти

:: Список Форумов•Список Сообщений•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 9 Simple777 (Гостей: 8)

	:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
	Лисоводы всех стран, объединяйтесь !!!