求一个DOS改文件名的批处理文件 急

一句就好了,保存为bat文件,和要改名的文件,放在同一个文件夹里运行.
@for /f "delims=" %%a in ('dir/b/a-d *.*') do @ren "%%a" "%%~na000a%%~xa"

文件改名.bat

@echo off
set /p oldname=请输入旧的文件名：
set /p newname=请输入新的文件名：
setlocal enabledelayedexpansion
dir /b . >list.txt
for /f "tokens=1 delims=1" %%i in ("%oldname%") do set name=%%i
if "%name:~-1%"=="0" set name=%name:~0,-1%
if "%name:~-1%"=="0" set name=%name:~0,-1%
if "%name:~-1%"==" " set name=%name:~0,-1%
if "%name:~-1%"==" " set name=%name:~0,-1%
for /f "delims=" %%i in (list.txt) do (
set var=%%i
set var=!var:%name%=!
ren %%i !var!
)
dir /b . >list.txt
for /f "tokens=1,2 delims=1" %%i in ("%oldname%") do set name=%%j
for /f "delims=" %%i in (list.txt) do (
set