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

See also  How IoT Tech Will Transform Logistics
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist