使用GetAttr函数确定文件属性

时　间:2021-11-28 07:47:34
作　者:某.强人   ID：73257  城市：长沙
摘　要:分享一个确定文件属性的示例。
正　文:

语   法:

GetAttr (pathname)

必需的  pathname 参数是一个指定文件名的字符串表达式。 pathname 可以包括目录或文件夹以及驱动器。

返回值（所返回的值是以下属性值的和）:

若要确定哪些属性已设置，请使用 AND 运算符对 GetAttr 函数返回的值和所需的单个文件属性的值执行按位比较。如果结果不为零，则该文件设置该属性。

示   例：

确定目标文件是否设置隐藏属性。

Dim MyAttr
    MyAttr = GetAttr("E:\新建文件夹\文件.txt")
    Debug.Print MyAttr And vbHidden   'Returns 2
    Debug.Print MyAttr And vbReadOnly 'Returns 0