Comment utiliser l’instruction SetAttr dans VBA ?

L’instruction `SetAttr` en VBA (Visual Basic for Applications) est utilisée pour définir les attributs d’un fichier ou d’un répertoire. Vous pouvez l’utiliser pour définir des attributs tels que “archive”, “lecture seule”, “système” ou “caché”.

Voici comment vous pouvez utiliser `SetAttr` :

Syntaxe

SetAttr chemin_du_fichier, attributs

chemin_du_fichier : Une chaîne qui spécifie le chemin d’accès complet du fichier ou du répertoire dont vous souhaitez définir les attributs.
attributs : Une combinaison ou une somme des constantes suivantes qui spécifient les attributs à définir :

`vbNormal` : Normal (aucun attribut).
`vbReadOnly` : Lecture seule.
`vbHidden` : Caché.
`vbSystem` : Système.
`vbArchive` : Archive.
`vbAlias` : Alias (non supporté sur toutes les plateformes).

Exemples

    Dim chemin As String
    chemin = "C:pathtoyourfile.txt"
    
    ' Met le fichier en lecture seule
    SetAttr chemin, vbReadOnly

    Dim chemin As String
    chemin = "C:pathtoyourfile.txt"
    
    ' Met le fichier en caché et lecture seule
    SetAttr chemin, vbHidden Or vbReadOnly

Définir un fichier en lecture seule :
Définir un fichier comme caché et lecture seule :
Retirer l’attribut de lecture seule d’un fichier :

Si vous souhaitez retirer l’attribut de lecture seule, vous devez d’abord obtenir les attributs existants, les modifier pour supprimer l’attribut de lecture seule, puis les réappliquer avec `SetAttr`. Malheureusement, la fonction `SetAttr` ne permet pas directement de retirer un attribut sans spécifier l’ensemble complet des attributs.

Voici comment vous pourriez procéder :

    Dim chemin As String
    chemin = "C:pathtoyourfile.txt"
    
    ' Obtenez les attributs actuels
    Dim attr As VbFileAttribute
    attr = GetAttr(chemin)
    
    ' Supprimez l'attribut de lecture seule
    attr = attr And Not vbReadOnly
    
    ' Appliquez à nouveau les attributs
    SetAttr chemin, attr

Remarques

Assurez-vous d’avoir les autorisations nécessaires pour modifier les attributs des fichiers sur votre système.
L’utilisation incorrecte de `SetAttr` peut rendre les fichiers inaccessibles ou causer d’autres problèmes; manipulez donc les attributs avec précaution.

Avec ces informations, vous devriez être en mesure d’utiliser `SetAttr` pour gérer les attributs des fichiers et des répertoires dans vos projets VBA.

facebooklinkedin