复制代码 代码如下:
'/*=========================================================================
'*Intro拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件
'*FileNameGB2312.To.UTF-8.vbs
'*Authoryongfa365
'*Versionv1.0
'*WEBhttp://
'*LastModify2007-10-0410:42:53
'*==========================================================================*/

SetobjArgs=WScript.Arguments
IfobjArgs.Count>0Then
IfMsgBox("本程序仅支持GB2312到UTF-8的转换"&vbCrLf&"如果您所拖动的文件里有别的格式的文件请点“取消”",vbOKCancel+vbExclamation+vbDefaultButton2,"郑重提醒!!!")=vbOKThen
ForI=0ToobjArgs.Count-1
FileUrl=objArgs(I)
CallWriteToFile(FileUrl,ReadFile(FileUrl,"gb2312"),"utf-8")
Next
EndIf
Else
MsgBox"请将您要转换的“gb2312文件”拖到这个文件上"&vbCrLf&"程序会将它们自动转换为utf-8文件",vbInformation,"柳永法温馨提示："
EndIf

'-------------------------------------------------
'函数名称:ReadFile
'作用:利用AdoDb.Stream对象来读取各种格式的文本文件
'----------------------------------------------------

FunctionReadFile(FileUrl,CharSet)
DimStr
Setstm=CreateObject("Adodb.Stream")
stm.Type=2
stm.mode=3
stm.charset=CharSet
stm.Open
stm.loadfromfileFileUrl
Str=stm.readtext
stm.Close
Setstm=Nothing
ReadFile=Str
EndFunction

'-------------------------------------------------
'函数名称:WriteToFile
'作用:利用AdoDb.Stream对象来写入各种格式的文本文件
'参数:FileUrl-文件相对路径;Str-文件内容;CharSet-编码格式(utf-8,gb2312.....)
'----------------------------------------------------

FunctionWriteToFile(FileUrl,Str,CharSet)
Setstm=CreateObject("Adodb.Stream")
stm.Type=2
stm.mode=3
stm.charset=CharSet
stm.Open
stm.WriteTextStr
stm.SaveToFileFileUrl,2
stm.flush
stm.Close
Setstm=Nothing
EndFunction