Étape 1: Rédiger le script...
« Script écrit par Ayman Farhat (SCRIPTmaster)
"Ce script permet à votre PC lire le contenu de n’importe quel fichier texte, vous choisissez !
Const ForReading = 1
strText = InputBox ("tapez le nom du fichier que vous voulez lire le fichier, le fichier a une extension .txt", "lire des fichiers texte du bloc-notes")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile (strText + « .txt », ForReading)
strText = objText.ReadAll
objText.Close
Définir les Sapi = Wscript.CreateObject ("SAPI. SpVoice")
SAPI.Speak strText
Quand vous mettez le script enregistrer votre travail, lorsque vous enregistrez écrivez le nom de votre script de suivi by.vbs extention tel qu’illustré dans la figure ci-dessous