BAT для переноса и переименования файлов

Знающие, помогите доделать батник. Есть 30 папок с разными названиями, а в каждой папке 1 файл, его надо переименовать в такое же имя как у папки, и положить их все (файлы) в нужную папку например result.

Нашел код, но он создает файлы без расширения. Как добавить к названию файлов расширение .xml ?

set folder1=C:\folder1

set folder2=C:\result

if not exist "%folder2%" (md "%folder2%")

goto start

:fn1

for /f "delims=" %%i in ('dir %1 /a-d /b') do (ren "%~1\%%i" "%~2" & move "%~1\%~2" "%folder2%\")

::удаление папок если надо del /f /q %1

exit /b

:start

for /f "delims=" %%i in ('dir "%folder1%" /ad /b') do call :fn1 "%folder1%\%%i" "%%i"