LECTURE FICHIER TEXTE AVEC OBJET FSO (FILE SYSTEM OBJECT)

Dim FileBuffer1 As String

Function ReadTxT(Chemin As String, Fichier As String)
    Dim VarBuffer As String
'   Création de l'objet FSO
    Dim ObjetText As New FileSystemObject
'   Variable type fichier
    Dim Fil As File
'   Variable TextStream du FSO
    Dim TStreamText As TextStream
    Set ObjetText = CreateObject("Scripting.FileSystemObject")
    ObjetText.OpenTextFile (Chemin + Fichier)
    Set Fil = ObjetText.GetFile(Chemin + Fichier)
    Set TStreamText = Fil.OpenAsTextStream(ForReading)
'   Copie la totalité du fichier dans un string (retour chariot et saut de ligne compris)
    VarBuffer = TStreamText.ReadAll
'   Ferme le fichier
    TStreamText.Close
'   Efface la valeur précédente de la fonction ReadTxT
    ReadTxT = vbNullString
'   Renvoie le texte complet du fichier
    ReadTxT = VarBuffer
End Function

Private Sub Lecture
'   Utilisation de la fonction lecture
    FileBuffer1 = ReadTxT("C:\", "BootLog.txt")
End Sub