Переименуйте файлы с помощью пакета, но только те, которые заканчиваются на "* D.txt"

Question

Я хочу переименовать все файлы в одном каталоге, но только в txt-файлы, которые заканчиваются на D

Вот что я попробовал в партии ... но оба не работали.

----- ----- try1

@echo off
 set Quelle="C:\temp\TEST\IN\"
 Set DateiFilter="*D.txt"
 for /r %Quelle% %%i in (%DateiFilter%) do rename %%i %%~niI.txt
 end

----- ----- try2

@echo on
setlocal enableDelayedExpansion
set Quelle="C:\temp\TEST\IN\"
Set DateiFilter="*.txt"
set y="D"
set z="I"
for /r %Quelle% %%i in (%DateiFilter%) do (set x=%%i rename "%%i" "!x:D.txt=I.txt!")
pause
end

Answer 1

Ответил в комментариях ОП

@echo off 
pushd "C:\temp\TEST\IN\" 
setlocal enabledelayedexpansion 
for /f "delims=" %%a in ('dir "*D.txt" /b /a-d ') do (
   set "name=%%~na" 
   set "name=!name:~0,-1!I" 
   ren "%%a" "!name!%%~xa"
)
popd 
pause