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

  • A+
所属分类:lcx

    VB 读取/获取指定文件/文件夹属性,VB 读取/获取指定文件夹属性,VB 读取指定文件/文件夹属性,VB 获取指定文件/文件夹属性,VB 读取/获取指定文件属性,VB 读取指定文件夹属性,VB 获取指定文件夹属性,VB 读取指定文件属性,VB 获取指定文件属性,VB 读取文件夹属性,VB 获取文件夹属性,VB 读取文件属性,VB 获取文件属性,VB 文件夹属性,VB 文件属性,VB 属性,VB获取文件/文件夹信息,VB获取文件夹信息,VB获取文件信息,VB文件夹信息,VB文件信息,VB文件夹,VB文件,VB获取文件/文件夹创建时间/大小/属性,VB获取文件夹创建时间/大小/属性,VB获取文件创建时间/大小/属性,VB获取文件夹创建时间,VB获取文件创建时间,VB获取文件夹大小,VB获取文件夹属性,VB获取文件夹时间,VB获取文件大小,VB获取文件属性,VB获取文件时间,VB文件夹时间,VB文件夹大小,VB文件夹属性,VB创建时间,VB文件时间,VB文件大小,VB文件属性,VB时间,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

文章来源于lcx.cc:【VB技巧】VB 读取/获取指定文件/文件夹属性

相关推荐: 全方位在互联网中保护自己第八章(如何留住数据的节操(上))

又是时隔好久,一直有点忙,在此道歉,并祝各位节日快乐,下面来说说如何留住数据的节操吧 相信各位大黑阔手里都是裤子,如何保留这些而无需上缴水表呢? 相信黑阔们已经想到,网上备份。那么如何备份呢?黑阔想到了网络硬盘 说到网络硬盘,下面我们来说说网络硬盘吧 怎么挑选…

发表评论

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