Saving and Naming the Script
The following script between the "===" should be copied and pasted into a new Notepad document.
'Script written by Ayman Farhat (SCRIPTmaster)
'This script allows your PC to read contents of any text file you choose!
Const ForReading = 1
strText = InputBox("Please type in the name of the file you want to read the file, the file has an extension .txt","Read text files from notepad")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile(strText + ".txt", ForReading)
strText = objText.ReadAll
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Save the script, naming it reader.vbs - note the .VBS file extension to denote a Microsoft Visual Basic script.