LibreOfficeDev 25.8 Help
Stelt de attribuutinformatie voor een gespecificeerd bestand in.
SetAttr PathName As String, Attributes As Integer
FileName: naam van het bestand, inclusief het pad, waarvan u de kenmerken wilt testen. Als u geen pad invoert, zoekt SetAttr naar het bestand in de huidige map. U kunt ook de URL-notatie gebruiken.
Attributes: Bitpatroon dat de attributen definieert die u wilt instellen of wissen:
| Benoemde constante | Waarde | Definitie | 
|---|---|---|
| ATTR_NORMAL | 0 | Normale bestanden. | 
| ATTR_READONLY | 1 | Alleen-lezen bestanden. | 
| ATTR_HIDDEN | 2 | Verborgen bestand | 
U kunt meerdere attributen instellen door de respectieve waardes met een logische OF-instructie samen te voegen.
Sub ExampleSetGetAttr
 On Error Goto ErrorHandler ' Definieer doel voor foutafhandeling
 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" , ATTR_READONLY
 Print GetAttr( "c:\test\autoexec.sav" )
 End
ErrorHandler:
 Print Error
 End
End Sub