VBS lire fichier .txt

matmat01 Messages postés 1 Statut Membre -  
ghuysmans99 Messages postés 2496 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
je suis totalement débutant et je viens de commencer mon cour de programmation....
Comme projet, notre prof nous demande de trouver une façon de faire afficher un msg dans un msgbox a partir d'un fichier txt....

Pour être plus claire, j'ai deux fichier:
Le vbs (msgbox.vbs) dans le quelle se trouve le msgbox

Et j'ai le fichier .txt (msg.txt) qui contiens le message a afficher...

J'ai fait quelque recherche mais je ne comprend pas ce que j'ai trouver :(
... si quelqu'un pourrait me donner une façon très simple de faire cela, j'apprécierai beaucoup!!

1 réponse

  1.
    ghuysmans99 Messages postés 2496 Date d'inscription   Statut Contributeur Dernière intervention   342
     
    Utilise FSO : 
    Public Function ReadTextFile(Filename)
 Dim objFso, objTextStream
 Set objFso = CreateObject("Scripting.FileSystemObject")
 Set objTextStream = objFso.OpenTextFile(Filename, ForReading, False)
 ReadTextFile = objTextStream.ReadAll()
 objTextStream.Close: Set objTextStream = Nothing
 Set objFso = Nothing
End Function
    0