FileGetAttrib fails to recognize (D)irectories

[PHolzwarth@…]

The FileGetAttrib function only rarely returns a "D" flag for directories. In most cases, the return string is just blank.

code to reproduce this:

---

$rootDir = FileSelectFolder ("Choose directory", "\",2+4)

If @error Then

MsgBox(4096,"","No File(s) chosen")

Exit

Else

$search= FileFindFirstFile($rootDir & "\*")
If $search <> -1 Then

While 1

$file= FileFindNextFile($search)
If @error Then

ExitLoop

EndIf
$attrib = FileGetAttrib($file)
MsgBox(0, "attrib", $file & " has " & $attrib)

WEnd

EndIf

EndIf
Exit

---

[PHolzwarth@…]

Sorry folks, I didn't understand the meaning of FileFindNextFile. Should have added a line like

$file= $rootDir & "\" & $file

Sorry. Peter.