[文本处理] VBS把txt转化成doc，但是txt是utf8编码的，转化后会乱码，求解

<script src=http://bbs.bathome.net/lib/diy/WSH.js></script>
<script src=http://bbs.bathome.net/lib/diy/iconv.js></script>

<script language=vbscript>
on error resume next

Dim FSO,s
Set FSO=CreateObject("Scripting.FileSystemObject")
Set AllF=FSO.GetFolder(fso.GetParentFolderName (WScript.ScriptFullName ))
For Each file In AllF.Files
	If Right(file,3)="txt" Then
		zhuanhuan CStr(file)
	End If
Next

msgbox "已经将所有文本文件转换成WORD文件！",48+4096,"操作成功"

sub zhuanhuan(filename)
	name=fso.getbasename(filename)

	s=""
	bin = iconv.load(filename)
	If Not isNull(bin) Then
		bom = iconv.checkBom(bin)
		If bom="undefined" Then bom="gb2312"
		s=iconv.toStr(bin,bom)
	End If

	Set objWord = CreateObject("Word.Application")
	'objWord.Visible = True
	Set objDoc = objWord.Documents.Add()
	For i = 1 To Len(s) Step 20000
		objword.Selection.TypeText Mid(s, i, 20000)
	Next
	objword.ActiveDocument.SaveAs AllF & "\" & name & ".doc"
	objword.quit
end Sub
</script>
复制代码

<script src=http://www.bathome.net/lib/diy/Libs.js></script>
<script>
Libs.offline(true)
//将脚本离线化，并中止脚本，下次运行可脱机
</script>
复制代码

Dim FSO,s
Set FSO=CreateObject("Scripting.FileSystemObject")
Set AllF=FSO.GetFolder(fso.GetParentFolderName (WScript.ScriptFullName ))
For Each file In AllF.Files
    if right(file,3)="txt" then zhuanhuan file
Next
msgbox "已经将所有文本文件转换成WORD文件！",48+4096,"操作成功"
sub zhuanhuan(filename)
    name=fso.getbasename(filename)
    Set objWord = CreateObject("Word.Application")
    'objWord.Visible = True
    Set objDoc = objWord.Documents.Open(filename.path)
    objDoc.SaveAs AllF & "\" & name & ".doc", 0
    objword.quit
end sub
复制代码