vbs脚本实现批量转换文件编码

 

Set fs = CreateObject("scripting.filesystemobject")

Set objArgs = WScript.Arguments

If objArgs.Count>0 Then

    For I = 0 To objArgs.Count - 1

       FileUrl = objArgs(I)

       Call ConvertDir(FileUrl)

    Next

Else

    MsgBox "没有文件/文件夹被拖入！"

    wscript.quit

End If

MsgBox "转换成功！"

最后通过解析脚本文件的参数，由于每个参数对应一个文件/文件夹的路径，将之传递给ConvertDir即可。这里默认的是将UTF-8编码转化为GB2312编码，读者可以根据自身需要自行修改。

将上述代码保存为ConvertCode.vbs，只需要将任意多个文件选中拖动到该脚本文件上即可。或者使用命令行。

> ConvertCode.vbs [filepath]

需要注意的是文件编码是就地转换的，在转换之前最好将原文件/文件夹进行备份。

最后附上脚本文件的所有代码。

'/*===========================================================
' * Intro        把要转换的多个文件/文件夹拖到该文件上即可
' * FileName     ConvertCode.vbs
' * Author       Florian
' * Version      v1.0
' * LastModify  2014-06-11 00:39:58
' *==========================================================*/

'-------------------------------------------------
'设置编码：默认    utf-8    -->    gb2312
'-------------------------------------------------

SrcCode="utf-8"
DestCode="gb2312"

'-------------------------------------------------
'解析参数
'-------------------------------------------------

Set fs = CreateObject("scripting.filesystemobject")
Set objArgs = WScript.Arguments
If objArgs.Count>0 Then
    For I = 0 To objArgs.Count - 1
        FileUrl = objArgs(I)
        Call ConvertDir(FileUrl)
    Next
Else
    MsgBox "没有文件/文件夹被拖入！"
    wscript.quit
End If
MsgBox    "转换成功！"

'-------------------------------------------------
'函数名称:ConvertDir
'作用:将任意目录内的文件进行编码转换
'-------------------------------------------------

Function ConvertDir(DirUrl)
    If fs.FileExists(DirUrl) Then 
        Call ConvertFile(DirUrl)
    Else
        Call SearchDir(DirUrl)
    End If
End Function