vbscript - 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