Attributes 属性

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

object.Attributes [=newattributes]

参数

object

必选项。应为 FileFolder 对象的名称。

newattributes

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

设置

newattributes 参数可为下列设置之一或下列设置的合理组合:
常数描述
Normal0普通文件。没有设置任何属性。
ReadOnly1只读文件。可读写。
Hidden2隐藏文件。可读写。
System4系统文件。可读写。
Directory16文件夹或目录。只读。
Archive32上次备份后已更改的文件。可读写。
Alias1024链接或快捷方式。只读。
Compressed2048压缩文件。只读。

说明

忽略对只读属性(别名,压缩或目录)所作的改变.

当设置属性时,应首先阅读当前属性,然后按要求改变个别属性,最后反写属性.

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

Function ToggleArchiveBit(filespec)
Dim fso, f
Set fso =CreateObject("Scripting.FileSystemObject")
Set f =fso.GetFile(filespec)
If f.attributes and 32 Then
f.attributes =f.attributes - 32
ToggleArchiveBit ="清空归档位。"
 Else f.attributes =f.attributes + 32 ToggleArchiveBit ="设置归档位。" End IfEnd Function

请参阅

DateCreated 属性 | DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | Files 属性 | IsRootFolder 属性 | Name 属性 | ParentFolder 属性 | Path 属性 | ShortName 属性 | ShortPath 属性 | Size 属性 | SubFolders 属性 | Type 属性

应用于:File 对象 | Folder 对象

返回首页