IBM Lotus Symphony
|
返回用于标识卷或目录的文件类型或名称的位模式。
GetAttr (Text As String)
整数
0:常规文件。
1:只读文件。
8:返回卷名
16:只返回目录名。
32:自上次备份(归档位)后,文件被更改。
如果要了解是否设置属性字节的位,请使用以下查询方法:
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