Поиск и копирование файлов

@Echo Off
Rem Путь задать БЕЗ слэша на конце
Set Output=C:\TEST
 
If Not Exist %Output% Exit /B 1
PushD %Output%&&RD . /S /Q 2>nul&PopD
For /F "Skip=1" %%A In ('WMIC LOGICALDISK WHERE "FileSystem!=NULL" GET Name') Do Call :_func "%%A"
GoTo :EoF
 
:_func
For /R "%~1" %%A in (*.gif) Do (
    If /i Not "%%~dpA"=="%Output%" If Exist "%Output%\%%~nxA" (
        For /F "Tokens=1* Delims=:" %%C in ('Dir /B /A-D "%Output%\%%~nA(*).gif" "%%A" 2^>nul^|FindStr /in .') Do If Not Exist "%Output%\%%~nA(%%C)%%~xA" Echo Copy "%%A" to "%Output%\%%~nA(%%C)%%~xA"&Copy /Y "%%A" "%Output%\%%~nA(%%C)%%~xA" >nul
    ) Else (
        Echo Copy "%%A" to "%Output%\%%~nxA"&Copy /Y "%%A" "%Output%\%%~nxA" >nul
    )
)

echo %%A > file.txt

@echo off
for /l %%# in (65 1 90) do @cmd/c exit/b %%#& for /f "delims=" %%a in ('2^>nul cmd/v/c dir /a-d/b/s "!=ExitCodeAscii!:\*.gif"') do echo %%a
pause

@echo off
set "d_out=papka_out"
if not exist "%d_out%" md "%d_out%"
for /l %%# in (65 1 90) do @cmd/c exit/b %%#& for /f "delims=" %%a in ('2^>nul cmd/v/c dir /a-d/b/s "!=ExitCodeAscii!:\*.gif"') do call :# "%%a"
pause
 
:#
 setlocal
  set /a n+=1
  if not exist "%d_out%\%~n1(%n%)%~x1" (copy "%~1" "%d_out%\%~n1(%n%)%~x1") else (goto #)
 endlocal
exit /b

...
 
:#
 setlocal  
  if not exist "%d_out%\%~n1%n%%~x1" (copy "%~1" "%d_out%\%~n1%n%%~x1") else (set /a n+=1& goto #)
 endlocal
exit /b

@echo off
for /l %%# in (65 1 90) do @cmd/c exit/b %%#& for /f "delims=" %%a in ('2^>nul cmd/v/c dir /a-d/b/s "!=ExitCodeAscii!:\proba.txt"') do call :# "%%a"
pause
 
:#
 echo %~1>>"file.txt"
exit /b