- 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,这是几年前收集的。 |