Tol!k
|
Posted: Mon May 03, 2010 13:46 Post subject: |
|
|
Code: | @echo off &chcp 1251 >nul
rem Копирование файлов и папок с добавлением счётчика
rem Параметры кнопки: %L "%T"
rem или: %L "d:\куда копировать\"
rem Автор: Tol!k
set "targ=%~2"
setlocal enableextensions
for /f "usebackq delims=" %%f in ("%~1") do call :p "%%f" "%%f."
exit /b
:p
set "prist=%~n1"
if "%prist%"=="" set "prist=%~n2"
set "name=%~1" &set "ext=%~x1"
set "n=0"
call :loop 1000 &set /a n-=1000
call :loop 100 &set /a n-=100
call :loop 10 &set /a n-=10
call :loop 1
title %new%
if "%name:~-1%"=="\" (
xcopy "%name%*" "%targ%\%new%" /i /s/e /k/r/h >nul
) else (
echo f| xcopy "%name%" "%targ%\%new%" /k/r/h >nul
)
goto :eof
:loop
if "%n%"=="9999" (
title STOP
echo 9999 единиц в месте назначения,
echo недостаточно разрядности счётчика.
pause >nul &exit
)
set /a n+=%1
set "e=000%n%"
set "e=%e:~-4%"
set "new=%prist%_%e%%ext%"
if exist "%targ%\%new%" call :loop %1
goto :eof
|
+ Добавил скорости в этом и предыдущем батнике
Last edited by Tol!k on Mon May 03, 2010 16:49; edited 3 times in total |
|