IBM Lotus Symphony
|
为指定的文件设置属性信息。
SetAttr FileName As String, Attribute As Integer
FileName:要测试属性的文件的名称(包括路径)。如果未输入路径,那么 SetAttr 会在当前目录中搜索文件。您也可以使用 URL 表示法。
Attribute:定义要设置或清除属性的位模式:
值
0:常规文件。
1:只读文件。
32:自上次备份(归档位)后,文件被更改。
您可以通过将多个属性各自的值与逻辑 OR 语句结合使用来设置这些属性。
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