标题: [其他] BAT如何把文件夹里的繁体文件名批量改成简体? [打印本页]
作者: wyjgin 时间: 2012-12-14 14:28 标题: BAT如何把文件夹里的繁体文件名批量改成简体?
如题,一个文件夹,下面有图片,有MP3,有视频;
这些文件的名字有些是繁体有些是简体的,比如
豐富.mp3 好看.jpg.......
求助,如何批量把它们都改成简体的。大概有400多个文件,手动不太可能了。
作者: apang 时间: 2012-12-14 16:48
本帖最后由 apang 于 2012-12-14 20:45 编辑
- 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 时间: 2012-12-14 17:18
本帖最后由 tmplinshi 于 2012-12-14 17:20 编辑
打开 http://bathome.net/redirect.php? ... 8&fromuid=33065
把代码中的 *.ape 改成 *
echo 创建文件列表...
(for /r %%a in (*.ape) do (
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |