GetAttr (function)

Syntax GetAttr (filename$)
Description Returns an Integer containing the attributes of the specified file.
Comments The attribute value returned is the sum of the attributes set for the file. The value of each attribute is as follows:
Constant Value Includes
EbNormal 0 Read-only files, archive files, subdirectories, and files with no attributes.
EbReadOnly 1 Read-only files
EbHidden 2 Hidden files
EbSystem 4 System files
EbVolume 8 Volume label
EbDirectory 16 DOS subdirectories
EbArchive 32 Files that have changed since the last backup
EbNone 64 Files with no attributes
To determine whether a particular attribute is set, you can And the values shown above with the value returned by GetAttr . If the result is True , the attribute is set, as shown below: 
Sub Main()
  Dim w As Integer
  w = GetAttr("sample.txt")
  If w And ebReadOnly Then MsgBox "This file is read-only."
End Sub
Example This example tests to see whether the file test.dat exists. If it does not, then it creates the file. The file attributes are then retrieved with the GetAttr function, and the result is displayed. 
Const crlf = Chr$(13) + Chr$(10)
 
Sub Main()
  Dim a()
  FileList a,"*.*"
Again:
  msg1 = ""
  r = SelectBox("Attribute Checker","Select File:",a)
  If r = -1 Then
    End
  Else
    y% = GetAttr(a(r))
  End If
  If y% = 0 Then msg1 = msg1 & "This file has no special attributes." & crlf
  If y% And ebReadOnly Then msg1 = msg1 & "The read-only bit is set." & crlf
  If y% And ebHidden Then msg1 = msg1 & "The hidden bit is set." & crlf
  If y% And ebSystem Then msg1 = msg1 & "The system bit is set." & crlf
  If y% And ebVolume Then msg1 = msg1 & "The volume bit is set." & crlf
  If y% And ebDirectory Then msg1 = msg1 & "The directory bit is set." & crlf
  If y% And ebArchive Then msg1 = msg1 & "The archive bit is set."
  MsgBox msg1
  Goto Again
End Sub
See Also SetAttr (statement); FileAttr (function).