IBM Lotus Symphony


SetAttr 语句 [运行时]

为指定的文件设置属性信息。

语法:

SetAttr FileName As String, Attribute As Integer

参数:

FileName:要测试属性的文件的名称(包括路径)。如果未输入路径,那么 SetAttr 会在当前目录中搜索文件。您也可以使用 URL 表示法

Attribute:定义要设置或清除属性的位模式:

0:常规文件。

1:只读文件。

32:自上次备份(归档位)后,文件被更改。

您可以通过将多个属性各自的值与逻辑 OR 语句结合使用来设置这些属性。

错误代码

5 无效的过程调用

53 未找到文件

70 许可权被拒绝

示例:

Sub ExampleSetGetAttr

On Error Goto ErrorHandler REM Define target for error-handler

If Dir("C:\test",16)="" Then MkDir "C:\test"

If Dir("C:\test\autoexec.sav")="" THEN Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"

SetAttr "c:\test\autoexec.sav" ,0

Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"

SetAttr "c:\test\autoexec.sav" ,1

print GetAttr( "c:\test\autoexec.sav" )

end

ErrorHandler:

Print Error

end

end sub


产品反馈 | 其他文档 | 商标