devxlogo

GetAttrDescr – The attributes of a file in a readable format

GetAttrDescr – The attributes of a file in a readable format

' 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

devx-admin

Share the Post: