[其他] BAT如何把文件夹里的繁体文件名批量改成简体？

wyjgin

如题，一个文件夹，下面有图片，有MP3，有视频；
这些文件的名字有些是繁体有些是简体的，比如

豐富.mp3  好看.jpg.......


求助，如何批量把它们都改成简体的。大概有400多个文件，手动不太可能了。

apang

Set FSO = CreateObject("Scripting.FileSystemObject")
i = 0
For Each File in FSO.GetFolder(".").Files
   If File.Name <> WScript.ScriptName Then
      ReDim Preserve A(i)
      A(i) = File.Name
      i = i + 1
   End If
Next

Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add()
oWord.Visible = False
oWord.Selection.TypeText Join(A,"/")
oDoc.Range.TCSCConverter 1,True,True
Str = Replace(oDoc.Range.Text,vbCr,"")
oDoc.Saved = True
oDoc.Close
oWord.Quit

B = Split(Str,"/")
For j = 0 To UBound(A)
   If A(j) <> B(j) Then
      FSO.GetFile(A(j)).Name = B(j)
   End If
Next

MsgBox "OK"
复制代码

保存为vbs文件，与需要转换的文件放在一起。需要系统安装有MS Office软件及转换插件
改一下，貌似。。。转换的比原来快些了

tmplinshi

打开 http://bathome.net/redirect.php? ... 8&fromuid=33065

把代码中的 *.ape 改成 *

echo 创建文件列表...
(for /r %%a in (*.ape) do (