' 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