Tol!k
|
 Posted: Thu Sep 29, 2011 23:18 Post subject: |
 |
|
| Code: | @echo off &setlocal enableextensions &chcp 1251 >nul
rem Перемещение выделенного в следующую по порядку папку
rem Пример параметров: "%L" "%T"
rem Автор: Tol!k
call :ddd %2
del /q "%temp%\ddd"
if "%n%"=="" set "n=001"
if "%p%"=="2" set "n=1%n%"
set "trg=%~2%n%"
md "%trg%" ||(echo/Не удалось создать следующую папку&pause&exit/b)
for /f "usebackq delims=" %%f in ("%~1") do call :m "%%f" "%%f."
exit /b
:m
set "name=%~1" &title %1
if "%name:~-1%"=="\" (
xcopy "%name:~0,-1%" "%trg%\%~nx2" /i /s/e /k/r/h >nul &&rd /s /q %1
) else (
echo f|xcopy %1 "%trg%" /k/r/h >nul &&(attrib -h -r -s %1 &del /q %1)
)
goto :eof
:ddd
dir /b/ad/o-n %1 |findstr /rbec:[0-9]* >"%temp%\ddd"
for /f "delims=" %%d in (
'findstr/rxc:...... "%temp%\ddd"^&findstr/rxc:..... "%temp%\ddd"^&findstr/rxc:.... "%temp%\ddd"^&findstr/rxc:... "%temp%\ddd"^&findstr/rxc:.. "%temp%\ddd"^&findstr/rxc:. "%temp%\ddd"'
) do (set /a n=1%%d+1 &call set "p=%%n:~0,1%%" &call set "n=%%n:~1%%" &exit /b)
goto :eof
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
