求一批处理按文件名排序后批量重命名

gavincar

文件夹中有很多QQ截图得到的jpg文件。
如：QQ截图20150113153921.jpg

如何用一批处理实现将这些文件批量重命名为：
000001.pdg
000002.pdg
……
000101.pdg

说明：
1、排序为按文件名排序，数字小的在前，数字大的在后。
2、批处理文件能将当前文件夹下的jpg进行重命名，最好也能对子文件夹下的也能重命名。

apang

1. @echo off & setlocal enabledelayedexpansion
   
2. ::pushd "D:\Test"
   
3. for /f "delims=" %%a in ('dir /a-d/on/b/s "QQ截图*.jpg"') do (
   
4.         if /i "%%~dpa" NEQ "!sPath!" (
   
5.                 set "sPath=%%~dpa"
   
6.                 set n=1000001
   
7.         ) else set /a n+=1
   
8.         Ren "%%a" !n:~1!.jpg
   
9.         
   
10. )
    
11. pause

复制代码