Aide LibreOffice 25.8
Définit les informations relatives aux attributs d'un fichier particulier.
SetAttr PathName As String, Attributes As Integer
FileName : nom du fichier, y compris le chemin, dont les attributs doivent être testés. Si vous ne saisissez pas de chemin, SetAttr recherche le fichier dans le répertoire courant. Vous pouvez également utiliser la notation d'URL.
Attributes : modèle de bits définissant les attributs à définir ou à effacer :
| Constante nommée | Valeur | Définition | 
|---|---|---|
| ATTR_NORMAL | 0 | Fichiers normaux. | 
| ATTR_READONLY | 1 | Fichiers en lecture seule. | 
| ATTR_HIDDEN | 2 | Fichier caché | 
Vous pouvez définir plusieurs attributs en combinant les valeurs respectives avec une instruction OR logique.
Sub ExampleSetGetAttr
 On Error Goto ErrorHandler ' Définir une cible pour le gestionnaire des erreurs
 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