>>Hi,
>>
>>How do you find the file name only, returned by GetFile() function; without the path to the file?
>>
>>TIA
>not direct but
>
>?justfname(getfile())
>/pre>
>should do the work
>
>if you insist on GetFile the following will work
><pre>
>#DEFINE GETFILE MyGetFile
>
>?GETFILE()
>
>FUNCTION MyGetFile
> LPARAMETERS;
> cFileExtensions,;
> cText,;
> cOpenButtonCaption,;
> nButtonType,;
> cTitleBarCaption
>
> #UNDEFINE GETFILE
>
> lvTemp = PCOUNT()
> DO CASE
> CASE lvTemp=0
> lvTemp = JUSTFNAME(GETFILE())
> CASE lvTemp=1
> lvTemp = JUSTFNAME(GETFILE(cFileExtensions)
> CASE lvTemp=2
> lvTemp = JUSTFNAME(GETFILE(cFileExtensions,cText))
> CASE lvTemp=3
> lvTemp = JUSTFNAME(GETFILE(cFileExtensions,cText,cOpenButtonCaption))
> CASE lvTemp=4
> lvTemp = JUSTFNAME(GETFILE(cFileExtensions,cText,cOpenButtonCaption, nButtonType))
> CASE lvTemp=5
> lvTemp = JUSTFNAME(GETFILE(cFileExtensions,cText,cOpenButtonCaption, nButtonType,cTitleBarCaption))
> OTHERWISE
> ENDCASE
>
> RETURN lvTemp
>ENDFUNC
>
Thank you. But with all due respect; seems like over-kill. I can get the file with GetFile() and then simply get the file name by applying justfname().
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
