451.txt

Java Script & VB Script 教程

Attributes 属性 
 
Microsoft® Visual Basic® Scripting Edition
Attributes 属性
语言参考 
版本 3 
 
请参阅 应用于
描述
设置或返回文件或文件夹的属性。可读写或只读（与属性有关）。
语法
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 属性：
Sub SetClearArchiveBit(filespec)
  Dim fs, f, r
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFile(fs.GetFileName(filespec))
  If f.attributes and 32 Then
      r = MsgBox("已设置 Archive 位，是否确定清除？", vbYesNo, "设置/清除 Archive 位")
      If r = vbYes Then 
          f.attributes = f.attributes - 32
          MsgBox "已清除 Archive 位。"
      Else
          MsgBox "保留 Archive 位设置。"
      End If
  Else
      r = MsgBox("未设置 Archive 位。是否确定设置？", vbYesNo, "设置/清除 Archive 位")
      If r = vbYes Then 
          f.attributes = f.attributes + 32
          MsgBox "已设置 Archive 位。"
      Else
          MsgBox "未设置 Archive 位。"
      End If
  End If
End Sub