ebReadOnly (constant)

Description Bit position of a file attribute indicating that a file is read-only.
Comments This constant is equal to 1.
Example This example dimensions an array and fills it with filenames with ReadOnly attributes. 
Sub Main()
????Dim s$()
????FileList s$, "*", ebReadOnly
????If ArrayDims(s$) = 0 Then
????????MsgBox "No read only files found!"
????????End
????End If
????a% = SelectBox("ReadOnly", "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).