lisdir() problem

[Marc Vanzegbroeck]

Hi,

If I call this lisdir() returns FALSE, even when I use lfn2sfn.

Code: Select all  Expand view  RUN

      local cValue :=   GetEnv( "USERPROFILE")
       msginfo(lfn2sfn(cValue+'\Local Settings\Application Data'),cValue+'\Local Settings\Application Data')
      msginfo(lisdir(lfn2sfn(upper(cValue+'\Local Settings\Application Data'))))
      msginfo(lisdir(upper(cValue+'\Local Settings\Application Data')))



Is there an error in lisdir()?

Thanks,
Marc

[yury]

i dont think so...

here in my testes both returns .T. ( directory exists !!! )

Code: Select all  Expand view  RUN

local cValue := GetEnv( "USERPROFILE")
local cDirec := '\Configurações locais\Application Data'

msginfo(lIsDir(lfn2sfn(upper(cValue+cDirec))))
msginfo(lIsDir(cValue+cDirec))


regards

[Antonio Linares]

Marc,

lIsDir() is not working with hidden directories. Try this sample:

Code: Select all  Expand view  RUN

function Main()

      local cValue := GetEnv( "USERPROFILE")

      msginfo( cValue )
      msginfo( lIsDir( cValue + "\Documents" ) )
     
return nil


[Marc Vanzegbroeck]

Antonio,

That seems to be the problem.
In FW1.9.5 it was working

Regards,
Marc

[Antonio Linares]

Marc,

Fixed. Simply add this function to your main PRG:

Code: Select all  Expand view  RUN

function lIsDir( cDirName )   // Checks an existing directory

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

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


sample:

Code: Select all  Expand view  RUN

function Main()

      local cValue := GetEnv( "USERPROFILE")

      msginfo( cValue )
      msginfo( lIsDir( cValue + "\Application Data" ) )
     
return nil     


[Marc Vanzegbroeck]

Thanks Antonio,

It's working fine now!!

Regards,
Marc

[Davide]

Code: Select all  Expand view  RUN

function lIsDir( cDirName )   // Checks an existing directory

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

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


a trailing \ in cDirName makes DIRECTORY returning the CONTENT of cDirName

Code: Select all  Expand view  RUN

function lIsDir( cDirName )   // Checks an existing directory
Local aResult
  If Right(cDirName,1)="" ; cDirName:=Left(cDirName,Len(cDirName)-1) ; Endif
  aResult := Directory( cDirName, "DHS" )
Return Len( aResult ) == 1 .and. "D" $ aResult[ 1 ][ 5 ]


FWH 7.07 - xH 0.99.71

Hi,
Davide

[Antonio Linares]

Davide,

Thanks!