-->
option
explicit
dim fso,
fread
,str,strarry,linestr
set fso=createobject(
"scripting.filesystemobject"
)
set
=fso.OpenTextFile(
"test.txt"
,1)
str=
.readall
.close
CreateObject(
"SAPI.SpVoice"
).Speak str
本文链接:https://it72.com:4443/7676.htm