Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

使用GetAttr函数确定文件属性

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

语   法:

GetAttr (pathname)

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

返回值(所返回的值是以下属性值的):

常量 说明
vbNormal 0 正常。
vbReadOnly 1 只读。
vbHidden 2 已隐藏。
vbSystem 4 系统文件。 在 Macintosh 上不可用。
vbDirectory 16 目录或文件夹。
vbArchive 32 文件自上次备份以来已发生更改。 在 Macintosh 上不可用。
vbAlias 64

指定文件名为别名。 仅在 Macintosh 上可用

备   注:

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


示   例:

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

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



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助