批量转换文件编码(euc-kr => utf-8)

文件很多。纯文本文件。

euc-kr是韩文的编码。需要转换到utf-8的。

哪位可以提供个工具。。感激不尽。100分奉上。谢谢。 不够可以追加。
感谢各位。。。分也不知道给谁。。。。。。

自己动手丰衣足食。。。

自己写了个小程序弄好了。。。。。

考虑下分再给谁吧。。。呵呵

有QQ详谈。

'/*=========================================================================
' * Intro 拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件
' * FileName GB2312.To.UTF-8.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * LastModify 2007-10-04 10:42:53
' *==========================================================================*/
Set objArgs = WScript.Arguments
If objArgs.Count>0 Then
If MsgBox ("本程序仅支持GB2312到UTF-8的转换"&vbCrLf&"如果您所拖动的文件里有别的格式的文件请点“取消”", vbOKCancel + vbExclamation + vbDefaultButton2, "郑重提醒!!!") = vbOK Then
For I = 0 To objArgs.Count - 1
FileUrl = objArgs(I)
Call WriteToFile(FileUrl, ReadFile(FileUrl, "gb2312"), "utf-8")
Next
End If
Else