Attributes 属性

Microsoft(R) Visual Basic(R) Scripting Edition
Attributes 属性

描述

设置或返回文件或文件夹的属性。可读写或只读（与属性有关）。

语法

object.Attributes [= newattributes]
Attributes 属性的语法有以下部分：

部分描述

object 必选。应为 File 或 Folder 对象的名称。

newattributes 可选。如果指定此参数，则 newattributes 为指定的 object 的属性的新值。

设置

newattributes 参数可为下列设置之一或下列设置的合理组合：

常数值描述

Normal 0 普通文件。没有设置任何属性。

ReadOnly 1 只读文件。可读写。

Hidden 2 隐藏文件。可读写。

System 4 系统文件。可读写。

Volume 8 磁盘驱动器卷标。只读。

Directory 16 文件夹或目录。只读。

Archive 32 上次备份后已更改的文件。可读写。

Alias 64 链接或快捷方式。只读。

Compressed 128 压缩文件。只读。

说明

以下代码举例说明如何使用 Attributes 属性：

Function ToggleArchiveBit(filespec)
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filespec)
  If f.attributes and 32 Then
          If r = vbYes Then 
          f.attributes = f.attributes - 32
          ToggleArchiveBit ="已清除 Archive 位。"
      Else
            f.attributes = f.attributes + 32
    ToggleArchiveBit = "保留 Archive 位设置。"
      End If
  
End Function

部分	描述
object	必选。应为 File 或 Folder 对象的名称。
newattributes	可选。如果指定此参数，则 newattributes 为指定的 object 的属性的新值。

常数	值	描述
Normal	0	普通文件。没有设置任何属性。
ReadOnly	1	只读文件。可读写。
Hidden	2	隐藏文件。可读写。
System	4	系统文件。可读写。
Volume	8	磁盘驱动器卷标。只读。
Directory	16	文件夹或目录。只读。
Archive	32	上次备份后已更改的文件。可读写。
Alias	64	链接或快捷方式。只读。
Compressed	128	压缩文件。只读。