ebDirectory (constant)

Description Bit position of a file attribute indicating that a file is a directory entry.
Comments This constant is equal to 16.
Example This example dimensions an array and fills it with directory names using the ebDirectory constant. 
Sub Main()
  Dim s$()
  FileList s$,"c:\*",ebDirectory
  a% = SelectBox("Directories", "Choose one:", s$)
  If a% >= 0 Then
    MsgBox "You selected directory: " & s(a%)
  Else
    MsgBox "No selection made."
  End If
End Sub
See Also Dir, Dir$ (functions); FileList (statement); SetAttr (statement); GetAttr (function); FileAttr (function).