SetAttr-instructie
Stelt de attribuutinformatie voor een gespecificeerd bestand in.
Syntaxis:
SetAttr BestandsNaam As String, Attribuut As Integer
Parameters:
FileName: Naam van het bestand, inclusief het pad, waarvan u de attributen wilt testen. Als u geen pad invoert, zoekt SetAttr in de huidige map naar het bestand. U kunt ook URL-notatie gebruiken.
Attribuut: Bitpatroon dat de attributen definieert die u wilt instellen of wissen:
Waarde
|
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 waarden met een logische OF-instructie samen te voegen.
Voorbeeld:
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