Vb6 如何将文字转换成wav

Question

先引用Microsoft Speech Object Library库，然后：
Set nVoice = New SpVoice '创建微软语音朗读对象
For I = 0 To nVoice.GetVoices.Count - 1
a = nVoice.GetVoices.Item(I).GetDescription
If a = "Microsoft Simplified Chinese" Then '使用简体中文版语音库进行朗读
SpeakLngIndex = I
Exit For
End If
Next

On Error Resume Next
Set nVoice.Voice = nVoice.GetVoices.Item(SpeakLngIndex)
nVoice.Rate = 2
nVoice.Volume = 100
nVoice.Speak "你好！", SVSFlagsAsync '朗读文本
nVoice.AudioOutput = "D:\wav.wav" '将朗读的文本保存为wav音频
问题：
朗读完毕之后，并没有"D:\wav.wav" 音频文件生成，如何成功生成wav文件呢？

Answer 1

Const SSFMCreateForWrite = 3
Private Sub Form_Load()
strText = "测试文本"'这里输入要输出的声音
Set objVoice = CreateObject("SAPI.SpVoice")
Set objFile = CreateObject("SAPI.SpFileStream.1")
objFile.Open "D:\测试声音.wav", SSFMCreateForWrite'输出路径
Set objVoice.AudioOutputStream = objFile
objVoice.Rate = 1
objVoice.Volume = 100'音量
objVoice.AllowAudioOutputFormatChangesOnNextSet = False
objVoice.Speak strText
objFile.Close
Set objVoice.AudioOutputStream = Nothing
Set objVoice = Nothing
End Sub

英文也可以输出

注意需要引用Microsoft Speech Object Library库

望采纳