cFilePath issue.

[Horizon]

Hi,

This function is in filename.prg in \fwh\source\function directory.

Code: Select all  Expand view

function cFilePath( cPathMask )   // returns path of a filename

   local lUNC := "/" $ cPathMask
   local cSep := If( lUNC, "/", "\" )
   local n := RAt( cSep, cPathMask ), cDisk

return If( n > 0, Upper( Left( cPathMask, n ) ),;
           ( cDisk := cFileDisc( cPathMask ) ) + If( ! Empty( cDisk ), cSep, "" ) )

I used this function in my application. file path I noticed it was in uppercase. This creates problems with the Turkish characters I use. Is there a purpose in using the upper function? (Note. When I remove the Upper function, the problem disappears)

How can I replace the cFilePath function with my own function? I don't want to change this function in the entire application.

Thanks.

[karinha]

StrCapFirst() no sirve?

https://fivetechsupport.com/forums/viewtopic.php?f=3&t=40794&start=0

Regards, saludos.

[nageswaragunupudi]

I think there should be no problem in removing Upper.

Meanwhile just for discussion, other ways are

Code: Select all  Expand view

cPath := BeforAtNum( "\", TrueName( cFile ) ) + "\"

[Horizon]

I think there should be no problem in removing Upper.

Meanwhile just for discussion, other ways are

Code: Select all  Expand view

cPath := BeforAtNum( "\", TrueName( cFile ) ) + "\"

Thank you Mr. Rao,

I understand that you recommend creating my own function and using it.

[nageswaragunupudi]

I understand that you recommend creating my own function and using it.

Not exactly.

We are going to remove Upper in the next version FWH2310 going to be released at any time.

I just availed the opportunity to discuss other options. Their functionality is not exactly like cFilePath
One more. Works only of if the file exists:

Code: Select all  Expand view

? FileSysObj():GetFile( cFile ):ParentFolder:Path