Comment utiliser la fonction LOF dans VBA ?

La fonction `LOF` (Length of File) en VBA (Visual Basic for Applications) est utilisée pour obtenir la taille d’un fichier ouvert, en octets. Elle est particulièrement utile lorsque vous travaillez avec des fichiers en mode binaire ou séquentiel dans VBA.

Voici un guide étape par étape sur l’utilisation de la fonction `LOF` :

Ouvrir le fichier : Avant d’utiliser `LOF`, vous devez ouvrir le fichier en utilisant l’instruction `Open`.
Utiliser LOF : Appelez `LOF` en lui passant le numéro de fichier que vous avez utilisé pour ouvrir le fichier.
Traiter le résultat : `LOF` retourne un `Long` qui représente la taille du fichier en octets.
Fermer le fichier : Une fois que vous avez terminé, il est important de fermer le fichier en utilisant l’instruction `Close`.

Voici un exemple simple montrant comment utiliser LOF :

Sub ExampleLOF()
    Dim fileNumber As Integer
    Dim filePath As String
    Dim fileSize As Long

    ' Spécifiez le chemin du fichier
    filePath = "C:cheminversvotrefichier.txt"

    ' Obtenez un numéro de fichier disponible
    fileNumber = FreeFile

    ' Ouvrir le fichier en mode d'entrée
    Open filePath For Input As #fileNumber

    ' Obtenez la taille du fichier
    fileSize = LOF(fileNumber)

    ' Affiche la taille du fichier
    MsgBox "La taille du fichier est de " & fileSize & " octets."

    ' Fermez le fichier
    Close #fileNumber
End Sub

Remarques importantes :

Assurez-vous que le fichier existe au chemin spécifié pour éviter des erreurs.
Le fichier doit être ouvert en mode Input ou Binary (ou Output pour certains cas) : l’accès aléatoire (`Access Write`) ne permet pas l’utilisation de LOF.
Toujours fermer le fichier après avoir terminé les opérations pour libérer le système de ressources.

facebooklinkedin