Visual Basic Scripting Edition | 语言参考 |
Attributes 属性设置或返回文件或文件夹的属性。可读写或只读(与属性有关)。 object.Attributes [=newattributes]
参数object 必选项。应为 File 或 Folder 对象的名称。 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
请参阅DateCreated 属性 | DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | Files 属性 | IsRootFolder 属性 | Name 属性 | ParentFolder 属性 | Path 属性 | ShortName 属性 | ShortPath 属性 | Size 属性 | SubFolders 属性 | Type 属性 应用于:File 对象 | Folder 对象 返回首页 |