IBM Lotus Symphony
|
Nastavi informacije o atributu za podano datoteko.
SetAttr FileName As String, Attribute As Integer
FileName: Ime datoteke, vključno s potjo, katere atribute želite preizkusiti. Če ne vnesete poti, SetAttr poišče datoteko v trenutnem imeniku. Uporabite lahko tudi notacijo URL-ja.
Attribute: Vzorec bitov, ki definira atribute, ki jih želite nastaviti ali počistiti.
Vrednost
0 : Navadne datoteke.
1 : Datoteke samo za branje.
32 : Datoteka je bila spremenjena od zadnjega varnostnega kopiranja (arhivski bit).
Več atributov nastavite s kombinacijo ustreznih vrednosti in logičnim stavkom 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