2021-10-09 18:17:16

attributes 免费编辑 添加义项名

B 添加义项
?
义项指多义词的不同概念,如李娜的义项:网球运动员、歌手等;非诚勿扰的义项:冯小刚执导电影、江苏卫视交友节目等。 查看详细规范>>
所属类别 :
其他
其他
编辑分类

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

object.Attributes [= newattributes]

参数object

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

基本信息

  • 中文名称

    Attributes

  • 属性

    返回文件或文件夹的属性。

  • 参数

    object

  • 必选项

    应为 File 或 Folder 对象名称

目录

折叠 编辑本段 定义

newattributes

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

asdf

折叠 编辑本段 合理组合

设置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

阅读全文

热点资讯