如何在VB脚本中读取文件

Question

以下代码是一个vb脚本，可将文本从用户输入转换为语音。我希望从txt文件中获取文本。

Dim msg, sapi
msg=InputBox("Hello", "hello")
Set sapi =CreateObject("sapi.spvoice")
sapi.Speak msg

Answer 1

Const ForReading = 1
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim f
Set f = fso.OpenTextFile("c:\MyTextFile.txt", ForReading)
Dim text
text = f.ReadAll
f.Close