用VBS实现的批量gb2312转utf-8,支持拖动

''/*=========================================================================
''*Intro拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件
''*FileNameGB2312.To.UTF-8.vbs
''*Authoryongfa365
''*Versionv1.0
''*WEBhttp://www.yongfa365.com
''*Emailyongfa365[at]qq.com
''*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