[文本处理] [已解决]批处理怎样按顺序重命名文件？

D:\11adf.txt|d:\1.xxx
D:\32sa1.txt|d:\2.xxx
D:\32sa1.txt|d:\3.xxx
复制代码

@echo off & setlocal EnableDelayedExpansion
if exist c:\data.txt (
echo c:\data.txt文件已存在
pause
exit
)
set num=0
for /r "d:\" %%i in (*.*) do (
call :rename %%i
cls
echo 已处理 !num! 个文件,请稍等
)
setlocal DisableDelayedExpansion
echo 处理完毕
echo .
pause&exit
:rename
set /a num=%num%+1
rename "%1" %num%%~x1
echo %1^|%~dp1%num%%~x1 >>c:\data.txt
goto :eof
复制代码