Lire le contenu d'un fichier Texte en VBS

Comment lire le contenu d'un fichier Texte en VBS ?

Voici le script.

Function ReadTextFile(FileName, CharSet)
  Const adTypeText = 2
  
  ' créer l'object Stream
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
  
  ' spécifier le type de stream  - dans notre exemple nous voulons lire des données en mode texte
  BinaryStream.Type = adTypeText
  
  ' spécifier le charset à utiliser pour les données
  If Len(CharSet) > 0 Then
    BinaryStream.CharSet = CharSet
  End If
  
  ' ouvrir le stream
  BinaryStream.Open
  
  ' charger les données du disque vers l'object stream
  BinaryStream.LoadFromFile FileName
  
  ' ouvrir le stream et récupérer les données à partir de l'object
  ReadTextFile = BinaryStream.ReadText
End Function

Exemple d'utilisation :

Dim strData

strData = ReadTextFile("mon_fichier", "us-ascii")