Expressió SetAttr

Estableix la informació d'atribut d'un fitxer especificat.

Sintaxi:


SetAttr FileName As String, Attribute As Integer

Paràmetres:

FileName: Nom del fitxer, inclòs el camí, del qual voleu provar els atributs. Si no introduïu un camí, SetAttr cerca el fitxer al directori actual. També podeu utilitzar la notació URL.

Atribut: Patró de bits que defineix els atributs que voleu establir o eliminar:

Valor

Constant amb nom	Valor	Definició
ATTR_NORMAL	0	Fitxers normals.
ATTR_READONLY	1	Fitxers de només de lectura.
ATTR_HIDDEN	2	Fitxer ocult

Podeu definir diferents atributs combinant els valors respectius amb una expressió OR lògica.

Codis d'error

5 La crida al procediment no és vàlida

53 No s'ha trobat el fitxer

70 S'ha denegat l'accés

Exemple:


Sub ExampleSetGetAttr
 On Error Goto ErrorHandler ' Defineix la destinació per al gestor d'errors
 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