Question

帮忙改一下Vbs的脚本，让这个Vbs朗读指定目录下的.txt的内容。

帮忙改一下Vbs的脚本，让这个Vbs朗读指定目录下的.txt的内容。代码如下：
Dim userInput
userInput = InputBox("在下面输出你想让电脑说的话!")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

set sv=CreateObject("SAPI.SpVoice")
set fso=CreateObject("Scripting.FileSystemObject")
sv.speak fso.opentextfile("a.txt").readall