ebNone (constant)

Description

Bit value used to select files with no other attributes.

Comments

This value can be used with the Dir$ and FileList commands. These functions will return only files with no attributes set when used with this constant. This constant is equal to 64.

Example

This example dimensions an array and fills it with filenames with no attributes set.

Sub Main()
  Dim s$()
  FileList s$,"*",ebNone
  If ArrayDims(s$) = 0 Then
    MsgBox "No files found without attributes!"
    End
  End If
  a% = SelectBox("No Attributes", "Choose one", s$)
  If a% >= 0 Then
    MsgBox "You selected file " & s(a%)
  Else
    MsgBox "No selection made."
  End If
End Sub

See Also

Dir, Dir$ (functions); FileList (statement); SetAttr (statement); GetAttr (function); FileAttr (function).

More information

E