【VB技巧】VB 读取/获取指定文件/文件夹属性

VB 读取/获取指定文件/文件夹属性：

Public Function TheFileAttr(P As String) As String                              '读取指定文件/文件夹属性
    On Error GoTo Over
    If (GetAttr(P) And vbNormal) = vbNormal Then TheFileAttr = "常规"
    If (GetAttr(P) And vbReadOnly) = vbReadOnly Then TheFileAttr = TheFileAttr & "+只读"
    If (GetAttr(P) And vbHidden) = vbHidden Then TheFileAttr = TheFileAttr & "+隐藏"
    If (GetAttr(P) And vbSystem) = vbSystem Then TheFileAttr = TheFileAttr & "+系统"
    If (GetAttr(P) And vbDirectory) = vbDirectory Then TheFileAttr = TheFileAttr & "+目录"
    If (GetAttr(P) And vbArchive) = vbArchive Then TheFileAttr = TheFileAttr & "+存档"
    If (GetAttr(P) And vbAlias) = vbAlias Then TheFileAttr = TheFileAttr & "+别名"
    Exit Function
Over:
    TheFileAttr = "无法识别"
End Function