hlzj88

Set file = CreateObject("Scripting.FileSystemObject")
if file.FileExists("内容.txt") then
set txtfile=file.opentextfile("内容.txt",1)
while NOT txtfile.atendofstream
CreateObject("SAPI.SpVoice").Speak txtfile.ReadLine
wend
txtfile.close
msgbox ("完")
Else
msgbox("是直接读内容.txt里的文字内容，没找到内容.txt")
End If
复制代码

我不懂vbs，这是几年前收集的。