vbs代码怎样让电脑说中文

CreateObject("SAPISpVoice")Speak"你好"

新建一个txt文本文件，把上面的代码复制到这个文件中，然后保存，再把txt改为vbs双击就可以朗读了。

Set ws = CreateObject("WScriptShell")

Set FSO = CreateObject("ScriptingFileSystemObject")

kugou = wsregRead("HKCU\Software\KuGou\AppPath")

For Each f In FSOGetFolder(kugou)Files

  ext = LCase(Right(fName, 4))

  If ext = "exe" Or ext = "dll" Then

    s = s & fName & vbTab & FSOGetFileVersion(fPath) & vbCrLf

  End If

Next

MsgBox s

set fso=createobject("scriptingfilesystemobject")

set txt1=fsoopentextfile("1txt",1)

cod1=txt1readall

txt1close

set txt2=fsoopentextfile("2txt",1)

cod2=txt2readall

txt2close

if instr(cod2,cod1)>0 then

msgbox "找到了字符:"&cod1

end if

上源码测试可用。

同目录下新建两个文件“1txt”、“2txt”。“1txt”写进搜索关键词“中国人”，“2txt”写入内容“我是中国人，你好。”。

字符串比较不分什么文，只要你双引号里面的东西完全一样就相等。有一点点不同都不会相等。

有任何问题追问吧。

下面的代码是读取当前文件夹的所有文件：

'══代══码══开══始════

set fso=CreateObject("ScriptingFileSystemObject")

set fs=fsogetfolder("")files

for each f in fs

msgbox fpath

next

'══代══码══结══束════

说明：

使用folder对象中的files属性，获取文件集合，然后用for each枚举。

枚举到的都是一个file对象，当然可以直接应用其属性和方法。

set fso = createobject("scriptingfilesystemobject")

set a = fsoopentextfile("c:\aini")

b = areadall

awrite "qq"

aclose

基本就这样。自己摸索吧

Option Explicit

Dim objFso, objSrcFls, strSrcFld, objFile, objDstFile, strDstFile

strSrcFld = "e:\download\" '源文件夹,请自行更改

strDstFile = "e:\vbs\FileListstxt" '输出的目标文件,请自行更改

Set objFso = CreateObject("ScriptingFileSystemObject")

Set objDstFile = objFsoOpenTextFile(strDstFile, 2, True)

Set objSrcFls = objFsoGetFolder(strSrcFld)Files

For Each objFile In objSrcFls

objDstFileWriteLine strSrcFld & objFileName

Next

Dim objFld, objSrcFld

Set objSrcFld = objFsoGetFolder(strSrcFld)SubFolders

For Each objFld In objSrcFld

Call LoopSubFlds(strSrcFld & objFldName & "\")

Next

objDstFileClose

Set objFile = Nothing

Set objSrcFls = Nothing

Set objFso = Nothing

Sub LoopSubFlds(strFld)

For Each objFile In objFsoGetFolder(strFld)Files

objDstFileWriteLine strFld & objFileName

Next

For Each objFld In objFsoGetFolder(strFld)SubFolders

Call LoopSubFlds(strFld & objFldName & "\")

Next

End Sub

以上就是关于vbs代码怎样让电脑说中文全部的内容，包括:vbs代码怎样让电脑说中文、VBS获取文件名和版本号、vbs如何实现中中英文字符串的比较.为什么vbs读取中文字符串出现乱码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！