Copiez et collez le code suivant dans le fichier que vous avez créé à l'étape précédente:
Option Explicit
Const conForReading = 1
'Déclaration des variables
Dim objFSO, objReadFile, contenu
«objets visés
Réglez objFSO = CreateObject ("Scripting.FileSystemObject")
Réglez objReadFile = objFSO.OpenTextFile ("C: Temp TextToRead.txt", 1, False)
«contenu du fichier Lire
contenu = objReadFile.ReadAll
«Fermer le fichier
objReadFile.close
»Résultats
contenu WScript.Echo
«objets de nettoyage
Réglez objFSO = Nothing
Réglez objReadFile = Nothing
«Quitter le script
WScript.Quit ()