找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 23760|回复: 2

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

[复制链接]
发表于 2012-12-14 14:28:01 | 显示全部楼层 |阅读模式
如题,一个文件夹,下面有图片,有MP3,有视频;
这些文件的名字有些是繁体有些是简体的,比如

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


求助,如何批量把它们都改成简体的。大概有400多个文件,手动不太可能了。
发表于 2012-12-14 16:48:49 | 显示全部楼层
本帖最后由 apang 于 2012-12-14 20:45 编辑
  1. Set FSO = CreateObject("Scripting.FileSystemObject")
  2. i = 0
  3. For Each File in FSO.GetFolder(".").Files
  4.    If File.Name <> WScript.ScriptName Then
  5.       ReDim Preserve A(i)
  6.       A(i) = File.Name
  7.       i = i + 1
  8.    End If
  9. Next

  10. Set oWord = CreateObject("Word.Application")
  11. Set oDoc = oWord.Documents.Add()
  12. oWord.Visible = False
  13. oWord.Selection.TypeText Join(A,"/")
  14. oDoc.Range.TCSCConverter 1,True,True
  15. Str = Replace(oDoc.Range.Text,vbCr,"")
  16. oDoc.Saved = True
  17. oDoc.Close
  18. oWord.Quit

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

  25. MsgBox "OK"
复制代码
保存为vbs文件,与需要转换的文件放在一起。需要系统安装有MS Office软件及转换插件
改一下,貌似。。。转换的比原来快些了
发表于 2012-12-14 17:18:54 | 显示全部楼层
本帖最后由 tmplinshi 于 2012-12-14 17:20 编辑

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

把代码中的 *.ape 改成 *
echo 创建文件列表...
(for /r %%a in (*.ape) do (
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 20:20 , Processed in 0.017280 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表