Цитата KOD65001:
процесс "calc.exe"
Код: Выделить всё
@echo off
setlocal
:check
tasklist | 1>nul findstr Calculator.exe && (
1>nul timeout /t 1
goto:check
)
2>nul (for /f "tokens=2 delims=-" %%i in ('dir /b /ad C:\AT\AT-*') do set /a "int=%%i+1")
if not defined int set "int=1"
dir /b C:\M | 1>nul findstr . && (
md "C:\AT\AT-%int%"
for /f "tokens=*" %%i in ('dir /b /ad "C:\M"') do move "C:\M\%%i" "C:\AT\AT-%int%"
)Код: Выделить всё
@Echo Off
Set "ImageName=calc.exe"
Set /A TimeOut=5
Set "BoxATnew=C:\AT\AT-"
Set "BoxM=C:\M"
:Check
cls
TaskList /Fi "ImageName Eq %ImageName%" |Find /I "%ImageName%" &&(
TimeOut /T %TimeOut%
GoTo :Check
)
Set /A N=0
:DirMD
Set /A N+=1
If Exist "%BoxATnew%%N%" GoTo :DirMD
Pushd "%BoxM%"
xcopy /C /E /H /F "%BoxM%\*.*" "%BoxATnew%%N%\" &&2>nul Rd /S /Q "%BoxM%"
Popd
pause
Exit /B
megaloman, Foreigner, Fors1k - огромное спасибо за решение!