Binaryworld - GetAttrDescr - The attributes of a file in a readable format ... [ VB -> Files & Folder ]

' The attributes of a file in a readable format.
' It works also with open files, raises an error if the file doesn't exist.

Function GetAttrDescr(filename As String) As String
  Dim result As String, attr As Long

  ' get file attributes as a bit-coded field
  attr = GetAttr(filename)

  ' GetAttr also works with directories
  If attr And vbDirectory Then result = result & " Directory"
  If attr And vbReadOnly Then result = result & " ReadOnly"
  If attr And vbHidden Then result = result & " Hidden"
  If attr And vbSystem Then result = result & " System"
  If attr And vbArchive Then result = result & " Archive"

  ' discard the first space
  GetAttrDescr = Mid$(result, 2)
End Function