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