更新:2007 年 11 月
为文件设置属性信息。
在文件 I/O 操作中,My 功能具有比 SetAttr 更高的效率和更好的性能。有关更多信息,请参见 My.Computer.FileSystem 对象。
Public Sub SetAttr( _
    ByVal PathName As String, _
    ByVal Attributes As FileAttribute _
)
参数
- PathName 
 必需。指定文件名的 String 表达式。PathName 可以包含目录(或文件夹)和驱动器。
- Attributes 
 必需。常数或数值表达式,其和指定文件属性。
设置
Attributes 参数枚举值是:
| 值 | 常数 | 说明 | 
|---|---|---|
| Normal | vbNormal | 正常(默认)。 | 
| ReadOnly | vbReadOnly | 只读。 | 
| Hidden | vbHidden | 隐藏。 | 
| System | vbSystem | 系统文件。 | 
| Volume | vbVolume | 卷标 | 
| Directory | vbDirectory | 目录或文件夹。 | 
| Archive | vbArchive | 自从上次备份后文件已更改。 | 
| Alias | vbAlias | 文件具有不同的名称。 | 
| .gif) 说明: | 
|---|
| 这些枚举是由 Visual Basic 语言指定的。可以在代码中的任何位置使用这些名称以代替实际值。 | 
异常
| 异常类型 | 错误号 | 条件 | 
|---|---|---|
| PathName 无效或不存在。 | ||
| Attribute 类型无效。 | 
如果正在升级使用非结构化错误处理方式的 Visual Basic 6.0 应用程序,请参见“错误号”一列。(您可以根据 Number 属性(Err 对象) 比较错误号。) 然而,如果可能,应当考虑用 Visual Basic 的结构化异常处理概述 替换这种错误控制。
备注
如果试图设置打开文件的属性,则发生运行时错误。
示例
此示例使用 SetAttr 函数设置文件的属性。
' Set hidden attribute.
SetAttr("TESTFILE", vbHidden)   
' Set hidden and read-only attributes.
SetAttr("TESTFILE", vbHidden Or vbReadOnly)
智能设备开发人员说明
不支持此函数。
要求
**模块:**FileSystem
**程序集:**Visual Basic 运行库(在 Microsoft.VisualBasic.dll 中)