[文本处理] 【已解决】批处理怎样按一定规则重命名文件（包含子文件夹）？

ZeronoFreya

如题，某   文件夹A     下含有
                                                                      ***[01]***.txt   
                                                                      ***[02]***.txt   
                                                                      ***[03]***.txt   
                                                                          ......
如此命名规则的文件，将文件夹A   拖放到   批处理X  ，

文件重命名为
                                                                     01.txt   
                                                                     02.txt   
                                                                     03.txt   
                                                                       ......
请各位前辈赐教！

（ps.  曾经找到过一段vbs脚本，能达成要求，但必须要复制到文件夹根目录才行，而且，当出现01.MP4时，会重命名为01.txt.txt，很郁闷

Set FSO = CreateObject("Scripting.FileSystemObject")
For Each File in FSO.GetFolder(".").Files
   Ext = FSO.GetExtensionName(File)
   If LCase(Ext) = "txt" Or LCase(Ext) = "doc" Or LCase(Ext) = "ass" Then RenFiles
Next
MsgBox "OK"

Sub RenFiles()
   Set Re = New RegExp
   Re.Pattern = "(^.*\[)(\d{2})(\].*$)"
   Re.Global = True
   File.Name = Re.Replace(File.Name,"$2") & "." & Ext
End Sub
复制代码

嗯，感谢各位的帮助，经过各种各样的过程，总之我已经得到满意结果了，再此感谢给位前辈的不吝赐教！

感谢大家的帮助！！！！

ZeronoFreya

回复 2# 522235677

嗯，有点问题，运行后结果如下：
    [qzgu][Escha&LogynoAtelier~][01][CB].txt

     Escha&LogynoAtelier.txt

ZeronoFreya

回复 5# CrLf


    嗯，只留数字，数值范围在00-99，

ZeronoFreya

回复 8# terse


    不会的，确定只有一组 两位 数字...

ZeronoFreya

回复 19# terse


    Ren "D:\system\Desktop\test\test\dgtsts[02]fhjfcct.mp4.mp4" "02.mp4"
Ren "D:\system\Desktop\test\test\sdgdd[01]fdtgs.mp4" "01.mp4"
请按任意键继续. . .


感谢，但还是不成功。

我不懂编程，但感觉我的要求应该不是很难...没想到有这么多人帮助还是不行，这时候放弃也是不错的选择，再一次，感谢大家的帮助！！

ZeronoFreya

回复 24# PakTC


    没想到放弃后会出现满意结果，不能处理子文件夹也可以了，嗯，非常满意了，非常感谢！！

ZeronoFreya

回复 21# CrLf


    惭愧，如楼上所说，我不懂批处理，看到文件夹内内容未变，就果断认为失败了...惭愧！！

ZeronoFreya

回复 27# 523066680


    感谢，我决定用PakTC的批处理了，放到文件夹根目录下效果很不错，再次感谢