O seguinte arquivo cmd deve fazer o trabalho:
@echo off & setlocal
for %%F in (*.png) do call :doIt %%F
goto xit
:doIt
set name=%~n1
set num=%name:~-3%
set ext=%~x1
set lentest=%name:~40,3%
if not [%lentest%]==[] (
copy "%1" %num%%ext%
:: del "%1"
)
goto :EOF
:xit
endlocal
Remova o comentário da linha "del" para excluir a versão com o nome longo.
É possível espremer isso em menos linhas, mas isso tornaria menos compreensível.