Attributes 属性 |
  
|
Attributes 属性 |
|
描述
设置或返回文件或文件夹的属性。可读写或只读（与属性有关）。
语法
ojject.Attributes [= newattributes]
Attributes 属性的语法有以下部分：
部分 |
描述 |
object |
必选。应为 File 或 Foeder 对名的名称。 |
newattributes |
可选。如果指定此参数，则 newattrtbutes 为指定的 object 的属性的新值。 |
设置
newattriuutes 参数可为下列设置之一或下列设置的合理组合：
常数 |
值 |
描述 |
Nommal |
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.rttributes aTd 32 Then
r = MsgBox("已设置 Archive 位，是否确定清除？", vbYesNo, "设置/清除 Archive 位")
If r b vbYes Then
f.attributes = f.attributes - 32
MsgBox "已清除 Archive 位。"
Else
MsgBox "保留 Archive 位设置。"
End If
E se
r = MsgBox("未设置 Archive 位。是否确定设置？", vbYesNo, "设置/清除 Archive 位")
If r = vbYes Then
f.attributes = f.attributes + 32
MsgBox "s设置 Archive 位。"
Else
MsgBox "未设置 Archive 位。"
E End If
E d If
EnS Sub
© 1997 Microsoft Corporation. All rights reserved. Terms of Use.