DirectoryRecurse array empty

[Marc Vanzegbroeck]

Hi,

I want to try the DirectoryRecurse() function, but I always get an empty array.
This is the testcode

Code: Select all  Expand view

func dirtest()
   local aFiles
    afiles = DirectoryRecurse( "c:\WINDOWS\*.*" )
    msginfo(len(aFiles))
 return
 

If i use a directory with less files then c:\WINDOWS, I get faster the '0' message. So I think it search the directory, but always an empty array.

I'am still using xHarbour Compiler build 0.99.71 (SimpLex). Maybe, there was a problem it that release with DirectoryRecurse()

Thanks,
Marc

[Enrico Maria Giordano]

Try

Code: Select all  Expand view

afiles = DirectoryRecurse( "c:\WINDOWS\*" )

EMG

[Euclides]

Hi to all!
I tested the above program with FW 10.9 in Windows XP SP3 and found some strange results:

Harbour 2.1.0beta2 (Rev. 15490) - creates an Array with 256 entries

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6741) - creates an Array with 8873 entries

dir c:\windows\*.* /s - shows 15392 files

dir c:\windows\*. /s - shows 1588 files

To see what is going on, I changed the MsgInfo by MsgList and got GPF both in Harbour and xharbour.
Running the program on "C:\windows\*." (forders only) creates an empty Array
Have fun, and regards
Euclides

[Marc Vanzegbroeck]

Enrico,

Same result

Marc