:: Visual Foxpro, Foxpro for DOS
Аналог функции GETFILE()
OlegA
Автор

Сообщений: 536
Откуда: Иркутск
Дата регистрации: 22.06.2001
Добрый день.
Нужен аналог функции GETFILE(), чтобы возвращало имя с учетом регистра.
Функции GETFILE() возвращает в верхнем регистре.
Ratings: 0 negative/0 positive
Re: Аналог функции GETFILE()
PaulWist

Сообщений: 14601
Дата регистрации: 01.04.2004
MsComDlg.CommonDialog


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive
Re: Аналог функции GETFILE()
dimuhametov

Сообщений: 1562
Откуда: Костанай
Дата регистрации: 01.11.2008
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


------------------
Незнание делает жизнь такой интересной.
Ratings: 0 negative/0 positive
Re: Аналог функции GETFILE()
akvvohinc

Сообщений: 4203
Откуда: Москва
Дата регистрации: 11.11.2008
OlegA
Нужен аналог функции GETFILE(), чтобы возвращало имя с учетом регистра.

После того, как имя файла с помощью GETFILE() получено, можно узнать имя этого файла с учетом регистра с помощью функции ADIR() с параметром nFlag=1.
Ratings: 0 negative/2 positive
Re: Аналог функции GETFILE()
OlegA
Автор

Сообщений: 536
Откуда: Иркутск
Дата регистрации: 22.06.2001
akvvohinc
OlegA
Нужен аналог функции GETFILE(), чтобы возвращало имя с учетом регистра.

После того, как имя файла с помощью GETFILE() получено, можно узнать имя этого файла с учетом регистра с помощью функции ADIR() с параметром nFlag=1.
Спасибо большое, все просто если читать мат.часть. То же была мысль про ADIR(), запустил со стандартными параметрами результат тот же, а почитать хелп внимательно даже мысли не было.
Всем спасибо, кто откликнулся.
Ratings: 0 negative/0 positive


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

On-line: 30 (Гостей: 30)

© 2000-2024 Fox Club 
Яндекс.Метрика