IBM Lotus Symphony
|
Définit les informations d'attribut pour un fichier donné.
SetAttr FileName As String, Attribute As Integer
FileName : nom du fichier, y compris le chemin d'accès, dont vous souhaitez tester les attributs. Si vous ne saisissez pas de chemin d'accès, SetAttr recherche le fichier dans le répertoire en cours. Vous pouvez également utiliser la notation URL.
Attribut : suite de bits définissant les attributs que vous souhaitez définir ou effacer :
Valeur
0 : fichiers normaux.
1 : fichiers en lecture seule.
32 : le fichier a été modifié depuis la dernière sauvegarde (attribut d'archivage).
Vous pouvez définir plusieurs attributs en combinant leurs valeurs respectives avec une instruction OR logique.
Sub ExampleSetGetAttr
On Error Goto ErrorHandler REM Définissez la cible pour le gestionnaire d'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" ,1
print GetAttr( "c:\test\autoexec.sav" )
end
ErrorHandler:
Print Error
end
end sub