IBM Lotus Symphony
|
Nastaví informácie o atribútoch pre určený súbor.
SetAttr FileName As String, Attribute As Integer
FileName: Názov súboru, vrátane cesty, ktorého atribúty chcete testovať. Ak nezadáte cestu, príkaz SetAttr vyhľadá daný súbor v aktuálnom adresári. Tiež môžete použiť zápis URL.
Atribút: Bitový vzor, definujúci atribúty, ktoré chcete nastaviť alebo vymazať:
Hodnota
0 : Normálne súbory.
1 : Súbory určené len na čítanie.
32 : Súbor sa od posledného zálohovania zmenil (Archívny bit).
Skombinovaním príslušných hodnôt pomocou logického príkazu OR môžete nastaviť viacero atribútov.
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