Код: Выделить всё
rem функция для добавления имени папки к имени файла
:Recur
for /R %p% %%b in ("*.dwg") do (
for /f "delims=\ tokens=1,2,3,4,5,6" %%A in ('echo %%b') do (rename "%%b" "%%~F %%~nb.dwg")
)
for /R %p% %%b in ("*.xlsx") do (
for /f "delims=\ tokens=1,2,3,4,5,6" %%A in ('echo %%b') do (rename "%%b" "%%~F %%~nb.xlsx")
)
exit /BКод: Выделить всё
@Echo Off
Set "BoxIn=Z:\Box_Arc\xxxx"
Set "Mask="*.dwg" "*.xlsx""
For /R "%BoxIn%" %%f In (%Mask%) Do Call :DirFile "%BoxIn%" "%%f" "%%~nxf"
GoTo :Eof
:DirFile
For /F "tokens=1,2 delims=#" %%i IN (%3) DO (
If "%%j"=="" Ren %2 "%~nx1#%~3" &&Exit /B 0
If /I "%%i#"=="%~nx1#" Exit /B 0
If /I Not "%%i#"=="%~nx1#" Ren %2 "%~nx1#%%j" &&Exit /B 0
)
Exit /B 1Код: Выделить всё
@echo off
set "sh=_"
call :# "papkaA"
pause& exit
:#
setlocal enabledelayedexpansion
if exist "%~1" for /f "delims=" %%f in ('dir /a-d/b/s "%~1"') do set "nf=%%f"& echo "%%f"|>nul find "%sh%" && ren "%%f" "%~1%sh%!nf:*%sh%=!" || ren "%%f" "%~1%sh%%%~nxf"
endlocal
exit /bКод: Выделить всё
@echo off
set "sh=_"
set "d=%~dp0"
setlocal enabledelayedexpansion
for %%a in ("%d:~0,-1%.") do set "np=%%~nxa"
for /f "delims=" %%f in ('dir /a-d/b/s "."^|find /v "%~f0"') do set "nf=%%f"& echo "%%f"|>nul find "%sh%" && ren "%%f" "%np%%sh%!nf:*%sh%=!" || ren "%%f" "%np%%sh%%%~nxf"
endlocal
exit