Другой пример: позволяет получить текст из файла и прочитать его, VBScript.
On Error Resume Next
Path = InputBox("Введите полный путь к файлу","Чтение файлов")
If Path<>"" Then
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile(Path,1,False)
text = File.ReadAll
File.Close
Set objVoice=CreateObject("SAPI.SpVoice")
objVoice.Speak text
Else
WScript.Quit
End If
По умолчанию используется Microsoft Sam, но можно найти в Интернете движки для чтения на русском языке.
Автор примера — Felix Faria.
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.