请输入您要查询的百科知识:

 

词条 Attributes
释义

定义

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

object.Attributes [= newattributes]

参数object

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

newattributes

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

合理组合

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

常数 值 描述

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

ReadOnly 1 只读文件。可读写。

Hidden 2 隐藏文件。可读写。

System 4 系统文件。可读写。

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

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

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

Compressed 2048 压缩文件。只读。

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

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

以下代码举例说明如何使用 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 If

End Function

随便看

 

百科全书收录4421916条中文百科知识,基本涵盖了大多数领域的百科知识,是一部内容开放、自由的电子版百科全书。

 

Copyright © 2004-2023 Cnenc.net All Rights Reserved
更新时间:2024/12/23 13:42:21