IBM Lotus Symphony


Instruction SetAttr [Exécution]

Définit les informations d'attribut pour un fichier donné.

Syntaxe :

SetAttr FileName As String, Attribute As Integer

Paramètres :

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.

Codes d'erreur

5 Appel de procédure incorrect

53 Fichier introuvable

70 Accès refusé

Exemple :

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


Commentaires en retour sur le produit | Documentation complémentaire | Marques