cFilePath() bug

[Enrico Maria Giordano]

The followin sample shows "\" while it should show "" (empty string):

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    ? CFILEPATH( "test.txt" )

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

This may fix it:

Code: Select all  Expand view

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

   local n := RAt( "\", cPathMask ), cDisk

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


[Enrico Maria Giordano]

Thank you.

EMG