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

  • A+
所属分类:lcx

    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
    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, "提示:"

文章来源于lcx.cc:【VB技巧】根据文件属性值返回具体属性信息

相关推荐: 【文章】7.6 总结 第八章 密钥管理 保密通信

7.6 总结     胡扯了整个一章。有关对未来10年计算能力的预测是十分滑稽的,更不用说50年了。那些计算仅可以理解为一个指导,仅此而已。如果说过去就是一个向导的话,已经表明,未来与我们预测的的情况会有很大不同。     保守一点吧。如果你的密钥比你认为必须…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: