求BAT或者VBS脚本,批量重命名一个文件夹下面的文件为1 、2、3、4、5、依次等等

Question

求BAT或者VBS脚本,批量重命名一个文件夹下面的文件为1 、2、3、4、5、依次等等

后缀最好不变，变了也行

以前别人帮我写了一个，只能用一次。不知道为什么，再用就失效了，没什么用，谢谢啦。高手们

Answer 1

::═════代═══码═══开═══始═════
@echo off&setlocal enabledelayedexpansion
set /a k=1
for /f "delims=" %%i in ('dir /a-d/b *.*') do (
if not "%%i"=="%~nx0" (
move "%%i" "!k!%%~xi"
set /a k+=1))
pause
::═════代═══码═══结═══束═════

包括子文件夹的：
::═════代═══码═══开═══始═════
@echo off&setlocal enabledelayedexpansion
set /a k=1
for /f "delims=" %%i in ('dir /a-d/b/s *.*') do (
if not "%%i"==%0 (
ren "%%~dpnxi" "!k!%%~xi"
set /a k+=1))
pause
::═════代═══码═══结═══束═════