废话少说，直接上代码

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "All Files|."

objDialog.InitialDir = "C:\"

intResult = objDialog.ShowOpen

If intResult = 0 Then

Wscript.Quit

Else

Wscript.Echo objDialog.FileName

End If


Set fso=CreateObject("Scripting.FileSystemObject")

'创建文本对象

set frn=fso.opentextfile("read.txt",1)

'读取内容赋给一个自定义变量

m = frn.readall

CreateObject("SAPI.SpVoice").Speak""&m&""

'read.txt里存储要朗读的文件


存储为vbs文件，给与足够权限，并用vbs的解析引擎运行