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

VB 根据文件属性值返回具体属性信息，VB 根据文件属性返回具体属性信息，VB 根据文件属性返回具体属性信息，VB 根据文件属性值返回属性信息，VB 文件属性值返回具体属性信息，VB 根据属性值返回具体属性信息，VB 根据属性返回具体属性信息，VB 根据文件返回具体属性信息，VB 根据属性值返回属性信息，VB 文件属性值具体属性信息，VB 文件属性具体属性信息，VB 文件具体属性信息，VB 文件属性信息，VB 属性信息，VB 文件，VB 属性，Normal，0，普通文件，没有设置任何属性，ReadOnly，1，只读文件，可读写，Hidden，2，隐藏文件，可读写，System，4，系统文件，可读写，Directory，16，文件夹或目录，只读，Archive，32，上次备份后已更改的文件，可读写，Alias，1024，链接或快捷方式，只读，Compressed，2048，压缩文件，只读。

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 < S And S < 2048 Then S = S - 1024
    If 32 < S And S < 1024 Then S = S - 32
    If 16 < S And S < 32 Then S = S - 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, "提示:"

文章目录