六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

GetAttr函数介绍及实例

Admin | 2010-10-12 8:48:42 | ReadNums | 4847 | 标签 六合开奖结果现场直播 | 打印本页
     

  一、GetAttr函数介绍

  语法

  GetAttr(pathname)

  参数说明:必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。

  函数功能:返回值由 GetAttr 返回的值,是如下这些属性值的总和:

  常数    值 描述
  vbNormal  0  常规
  vbReadOnly 1  只读
  vbHidden  2  隐藏
  vbSystem  4 系统文件 在 Macintosh 中不可用。
  vbDirectory 16 目录或文件夹
  vbArchive    32 上次备份以后 在 Macintosh 中不可用.,文件已经改变
  vbalias   64 指定的文件名是别名。 只在 Macintosh中可用。

  注意 这些常数是由 VBA 指定的,在程序代码中的任何位置,可以使用这些常数来替换真正的值。

  说明

  若要判断是否设置了某个属性,在 GetAttr 函数与想要得知的属性值之间使用 And 运算符与逐位比较。如果所得的结果不为零,则表示设置了这个属性值。例如,在下面的 And 表达式中,如果档案 (Archive) 属性没有设置,则返回值为零:

  Result = GetAttr(FName) And vbArchive

  如果文件的档案属性已设置,则返回非零的数值。运行系统提示GetFileAttr  子程序或函数 未定义改为GetAttr便可使用。

  二、GetAttr函数实例

  Dim MyAttr' 假设 TESTFILE 具有隐含属性。

  MyAttr = GetAttr("TESTFILE")' 返回 2。' 如果 TESTFILE 有隐含属性,则返回非零值。

  Debug.Print MyAttr And vbHidden' 假设 TESTFILE 具有隐含的只读属性。

  MyAttr = GetAttr("TESTFILE")' 返回 3 。' 如果 TESTFILE 含有隐含属性,则返回非零值。

  Debug.Print MyAttr And (vbHidden + vbReadOnly)' 假设 MYDIR 代表一目录或文件夹。

  MyAttr = GetAttr("MYDIR")' 返回 16。


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日