La fonction `FileAttr` en VBA est utilisée pour obtenir des informations sur un fichier ouvert. Elle renvoie soit le mode d’accès du fichier (lecture, écriture, etc.) soit le numéro du gestionnaire de fichier de l’opération d’entrée/sortie.
Voici comment vous pouvez utiliser la fonction `FileAttr` :
Syntaxe
result = FileAttr(fileNumber, attribute)
- `fileNumber` : C’est un entier représentant le numéro du fichier assigné lorsque vous ouvrez un fichier avec la fonction `Open`.
- `attribute` : C’est un entier qui indique quel attribut vous souhaitez récupérer.
Attributs
- `1` : Pour obtenir le mode d’accès au fichier.
- `2` : Pour obtenir le numéro du gestionnaire de fichier de l’opération d’entrée/sortie.
Exemple d’utilisation
Voici un exemple où cette fonction est utilisée pour déterminer le mode d’accès d’un fichier :
Sub ExempleFileAttr()
Dim fileNumber As Integer
Dim modeAcces As Integer
' Ouvre un fichier en mode Input
fileNumber = FreeFile
Open "C:exemple.txt" For Input As fileNumber
' Obtient le mode d'accès du fichier
modeAcces = FileAttr(fileNumber, 1)
' Affiche le mode d'accès dans la fenêtre des messages
Select Case modeAcces
Case 1
MsgBox "Le fichier est ouvert en mode Input (lecture)."
Case 2
MsgBox "Le fichier est ouvert en mode Output (écriture)."
Case 4
MsgBox "Le fichier est ouvert en mode Random."
Case 8
MsgBox "Le fichier est ouvert en mode Append."
Case 32
MsgBox "Le fichier est ouvert en mode Binary."
Case Else
MsgBox "Mode d'accès inconnu."
End Select
' Ferme le fichier
Close fileNumber
End Sub
Remarques
- Assurez-vous de toujours fermer un fichier avec `Close` après avoir terminé les opérations d’entrée/sortie pour éviter tout blocage des ressources.
- `FileAttr` est principalement utile dans le contexte de fichiers ouverts avec la méthode `Open`.
Unlock Your Potential
Excel
Access
Power BI
