【VB技巧】根据文件属性值返回具体属性信息

VB 根据文件属性值返回具体属性信息：

Public Function ShuXingStr(S As String) As String                               '根据属性值计算/返回具体信息
    '函数名         数值   描述                    属性
    'Normal         0      普通文件                没有设置任何属性
    'ReadOnly       1      只读文件                可读写
    'Hidden         2      隐藏文件                可读写
    'System         4      系统文件                可读写
    'Directory      16     文件夹或目录            只读
    'Archive        32     上次备份后已更改的文件  可读写
    'Alias          1024   链接或快捷方式          只读
    'Compressed     2048   压缩文件                只读
    If 1024
    If 32
    If 16
    Select Case S
        Case Is = "0"
            ShuXingStr = "无"
        Case Is = "1"
            ShuXingStr = "只读"
        Case Is = "2"
            ShuXingStr = "隐藏"
        Case Is = "3"
            ShuXingStr = "只读+隐藏"
        Case Is = "4"
            ShuXingStr = "系统"
        Case Is = "5"
            ShuXingStr = "系统+只读"
        Case Is = "6"
            ShuXingStr = "系统+隐藏"
        Case Is = "7"
            ShuXingStr = "系统+只读+隐藏"
        Case Is = "16"
            ShuXingStr = "只读"
        Case Is = "32"
            ShuXingStr = "默认"                                                 '上次备份后更改
        Case Is = "1024"
            ShuXingStr = "只读"
        Case Is = "2048"
            ShuXingStr = "只读"
        Case Else
            ShuXingStr = "未知"
    End Select
End Function

使用示例：MsgBox "文件属性为：" & ShuXingStr("7"), vbInformation, "提示:"