CODE: [Copy to clipboard]
--------------------------------------------------------------------------------

set oSpeech = CreateObject("SAPI.SpVoice") '连接到系统的语音功能
set oFSO = CreateObject("Scripting.FileSystemObject") '打开FSO以阅读文件
set oFile = oFSO.OpenTextFile(WScript.Arguments(0)) '打开拖放到本vbs的txt文件，也就是打开脚本第一个参数
strContent = oFile.ReadAll '读取文本所有内容到一个字符串 strContent
oSpeech.Speak strContent '让系统读出字符串里的内容
set oSpeech = nothing
set oFSO = nothing
set oFile = nothing '释放资源，闪人

不是存.bat吧

请修改标题。
发现楼主看代码不认真，【set oFile = oFSO.OpenTextFile(WScript.Arguments(0)) '打开拖放到本vbs的txt文件，也就是打开脚本第一个参数】