Antonio: Bug in cFileSubDir( cPath )

[byte-one]

in cFileSubDir( cPath ) are also the drive name returned! This should not be so!

Returns:
<cDirName> Just the path name specified inside the full filename, excluding the drive name.

[Antonio Linares]

Günther,

Why do you think that the drive name should not be in the result ?

[byte-one]

Antonio, read the description from this function:

Returns:
<cDirName> Just the path name specified inside the full filename, excluding the drive name.

Look also at cFilePath()! This now the same result as cFileSubDir().

[Antonio Linares]

Please try this one:

Code: Select all  Expand view

function cFileSubDir( cPath )   // returns the subdir of a path & filename

return SubStr( 4, cFilePath( If( Right( cPath, 1 ) == "\" ,;
                  Left( cPath, Len( cPath ) - 1 ), cPath ) ) )

[byte-one]

Antonio, thanks!
But this method is not functioning with UNC-path !

[Antonio Linares]

Günther,

Here you have it with UNC support. cFilePath() needs to be changed too:

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, "" ) )

Code: Select all  Expand view

function cFileSubDir( cPath )   // returns the subdir of a path & filename

   local lUNC := "/" $ cPath
   local cTemp := cFilePath( If( Right( cPath, 1 ) $ "\/" ,;
                             Left( cPath, Len( cPath ) - 1 ), cPath ) )

return If( ! lUNC, SubStr( cTemp, 4 ), cTemp )

[byte-one]

Antonio, thanks!!!
In the next FWH??

[Antonio Linares]

yes, included in next FWH version