Directory() problem with 7.05

[Taavi]

Hi,
in our tests with FWH 7.05 Directory( cDirName, "D" ) returns not only directory names but all filenames in this dir. Therefore

function lIsDir( cDirName )
return Len( Directory( cDirName, "D" ) ) == 1

Returns always .f. with 7.05

Somebody with the same problem here?

Thanks,
Taavi

[Enrico Maria Giordano]

That's the normal DIRECTORY() behavior. If you want to filter out the files you have to scan the array for "D" attribute (F_ATTR).

Please consult Clipper/Harbour/xHarbour docs.

EMG

[Taavi]

IF so, then FWH function lIsdir() is not working any more (worked ok with xHarbour/FWH January builds. Had to replace it with Harbour IsDirectory() in our code

Taavi

[Enrico Maria Giordano]

Yes, I confirm the problem with lIsDir().

EMG

[Enrico Maria Giordano]

It has been changed in the last FWH version. This is from the previous one:

Code: Select all  Expand view

function lIsDir( cNewDir )   // Checks an existing directory

   local cDir   := CurDrive() + ":\" + CurDir()
   local lIsDir := lChDir( cNewDir )

   if lIsDir
      lChDir( cDir )
   endif

return lIsDir

EMG

[Antonio Linares]

Here it is working fine:

MsgInfo( lIsDir( "c:\windows" ) )

[Enrico Maria Giordano]

Yes, but it returns .T. even if a file is specified:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    ? LISDIR( "c:\windows\regedit.exe" )

    RETURN NIL

EMG

[Antonio Linares]

This seems to be the right code:

Code: Select all  Expand view

function lIsDir( cDirName )

   local aResult := Directory( cDirName, "D" )

return Len( aResult ) == 1 .and. aResult[ 1 ][ 5 ] == "D"


[Enrico Maria Giordano]

Maybe it's better

Code: Select all  Expand view

return Len( aResult ) == 1 .and. "D" $ aResult[ 1 ][ 5 ]

?

EMG

[Antonio Linares]

Enrico,

aResult[ 1 ][ 5 ] may contain some other values besides the "D", at the same time ?

[Enrico Maria Giordano]

Yes, a directory can have attributes other than "D".

EMG

[Antonio Linares]

ok, thanks!