Dzwebs.Net

撰写电脑技术杂文十余年

GetAttr函数介绍及实例

Admin | 2010-10-12 8:48:42 | 被阅次数 | 9788

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  一、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。


该杂文来自: Excel杂文

上一篇:EXCEL数据同步滚动让您同时查看相距较远的两列数

下一篇:EXCEL中的VBA编程之UBound、LBound的综合使用实例

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计