Проверка занятости папки (Альтернатива)

@echo off
color f9& chcp 65001 >nul
setlocal enableextensions enabledelayedexpansion
cd /d "%~dp0"
:menu
cls
echo Проверить (П)апку или (Ф)айл?
set ch=
set nf=
set np=
set /p "ch=Choice: "
for %%h in (F f П п 1) do (if "%%h"=="!ch!" (set /p "nf=Name: "& goto f))
for %%h in (P p Ф ф 2) do (if "%%h"=="!ch!" (set /p "np=Name: "& goto p))
goto menu
endlocal
timeout /t -1
@exit
 
:f
if not exist "!nf!" (timeout 1 /nobreak >nul& cls& echo Wait...& goto f)
ren "!nf!" "chk-!nf!"
if exist "chk-!nf!" (ren "chk-!nf!" "!nf!"& cls& echo Ok& timeout /t -1& goto menu) else (cls& echo Used...)
timeout 1 /nobreak >nul
goto f
 
:p
if not exist "!np!" (timeout 1 /nobreak >nul& cls& echo Wait...& goto p)
ren "!np!" "chk-!np!"
if exist "chk-!np!" (ren "chk-!np!" "!np!"& cls& echo Ok& timeout /t -1& goto menu) else (cls& echo Used...)
timeout 1 /nobreak >nul
goto p

@echo off
chcp 65001& color f9
setlocal enableextensions enabledelayedexpansion
if "%~1"=="" (echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"1","","runas",1 >"%~dp0Arun.vbs"& cscript //nologo "%~dp0Arun.vbs" "%~f0"& del /f /q "Arun.vbs"& exit)
set dir=C:\Users\admin\Downloads\NetDir
cd /d "!dir!"
set all=Все
set fst=NaN
set dst=NaN
takeown /f "*" >nul
echo y|cacls "*" /p !all!:f >nul
:menu
cls
echo.& echo Статус файлов: !fst!.
echo.& echo Статус папок: !dst!.
2>nul call :scan
timeout 1 /nobreak >nul
goto menu
endlocal
@exit
:scan
takeown /f "*" >nul
echo y|cacls "*" /p !all!:f >nul
set filsh=
set folsh=
set filchk=
set folchk=
for /f "usebackq tokens=*" %%h in (`dir "!dir!" /a-d /b`) do (set /a filsh+=1& set filsh!filsh!=%%h)
for /f "usebackq tokens=*" %%h in (`dir "!dir!" /ad /b`) do (set /a folsh+=1& set folsh!folsh!=%%h)
if "!filsh!"=="" (set fst=NaN) else (set fst=Ожидание...)
if "!folsh!"=="" (set dst=NaN) else (set dst=Ожидание...)
:filchk
set /a filchk+=1
ren "!filsh%filchk%!" "Chk-!filsh%filchk%!"
if exist "Chk-!filsh%filchk%!" (ren "Chk-!filsh%filchk%!" "!filsh%filchk%!"& copy /y "!filsh%filchk%!" "%~dp0"& del /f /q "!filsh%filchk%!"& set fst=Файл "!filsh%filchk%!" получен)
if !filchk! geq !filsh! (goto folchk)
goto filchk
:folchk
set /a folchk+=1
:: Что-то делаем, и после волшебного IF'a выполняем xcopy.
if !folchk! geq !folsh! (exit /b)
goto folchk

OPENFILES /local

@echo off
set "d=papka"
 
2>nul >nul move "%d%" "spapka" && call :# || echo Папка "%d%" занята
pause& exit
 
:#
 echo Выполняем что-то
exit /b

@echo off
chcp 65001& color f9
setlocal enableextensions enabledelayedexpansion
if "%~1"=="" (echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"1","","runas",1 >"%~dp0Arun.vbs"& cscript //nologo "%~dp0Arun.vbs" "%~f0"& del /f /q "Arun.vbs"& exit)
set dir=C:\Users\admin\Downloads\NetDir
cd /d "!dir!"
set all=Все
set fst=NaN
set dst=NaN
takeown /f "*" >nul
echo y|cacls "*" /p !all!:f >nul
:menu
cls
echo.& echo Статус файлов: !fst!.
echo.& echo Статус папок: !dst!.
2>nul call :scan
timeout 1 /nobreak >nul
goto menu
endlocal
@exit
:scan
takeown /f "*" >nul
echo y|cacls "*" /p !all!:f >nul
set filsh=
set folsh=
set filchk=
set folchk=
for /f "usebackq tokens=*" %%h in (`dir "!dir!" /a-d /b`) do (set /a filsh+=1& set filsh!filsh!=%%h)
for /f "usebackq tokens=*" %%h in (`dir "!dir!" /ad /b`) do (set /a folsh+=1& set folsh!folsh!=%%h)
if "!filsh!"=="" (set fst=NaN) else (set fst=Ожидание...)
if "!folsh!"=="" (set dst=NaN) else (set dst=Ожидание...)
:filchk
set /a filchk+=1
ren "!filsh%filchk%!" "Chk-!filsh%filchk%!"
if exist "Chk-!filsh%filchk%!" (ren "Chk-!filsh%filchk%!" "!filsh%filchk%!"& copy /y "!filsh%filchk%!" "%~dp0"& del /f /q "!filsh%filchk%!"& set fst=Файл "!filsh%filchk%!" получен)
if !filchk! geq !filsh! (goto folchk)
goto filchk
:folchk
set /a folchk+=1
move /y "!folsh%folchk%!" "Chk-!folsh%folchk%!"
if exist "Chk-!folsh%folchk%!" (move /y "Chk-!folsh%folchk%!" "!folsh%folchk%!"& xcopy /e /c /i /q /r /y "!dir!\!folsh%folchk%!" "%~dp0!folsh%folchk%!"& rd /s /q "!folsh%folchk%!"& set dst=Папка "!folsh%folchk%!" получена)
if !folchk! geq !folsh! (exit /b)
goto folchk

@echo off
chcp 65001 >nul& color f9
title Мониторинг OpenFiles
setlocal enableextensions enabledelayedexpansion
if "%~1"=="" (echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"1","","runas",1 >"%~dp0Arun.vbs"& cscript //nologo "%~dp0Arun.vbs" "%~f0"& del /f /q "Arun.vbs"& exit)
if "!OpenFilesLocOn!"=="" (openfiles /local on& setx OpenFilesLocOn 1& shutdown /r /f /t 0)
set dir=%~dp0NetDir
cd /d "!dir!"
set pdf=Null
set pdd=Null
set clearmassf=1
set clearmassd=1
set clearmassf!clearmassf!=Null
set clearmassd!clearmassd!=Null
:menu
cls
echo.& echo Последнее действие: !pdf!.& echo.& echo Очередь файлов:& echo.
for /l %%h in (1,1,!clearmassf!) do (echo !clearmassf%%h!)
echo.& echo Последнее действие: !pdd!.& echo.& echo Очередь папок:& echo.
for /l %%h in (1,1,!clearmassd!) do (echo !clearmassd%%h!)
2>nul call :load
timeout 1 /nobreak >nul
goto menu
endlocal
@exit
:load
set fil=0
set fol=0
for /f "usebackq tokens=*" %%h in (`dir "!dir!" /a-d /b`) do (call :loadf "!dir!\%%h" "%%h")
for /f "usebackq tokens=*" %%h in (`dir "!dir!" /ad /b`) do (call :loadd "!dir!\%%h" "%%h")
if "!fil!"=="0" (set clearmassf=1& set clearmassf!clearmassf!=Null)
if "!fol!"=="0" (set clearmassd=1& set clearmassd!clearmassd!=Null)
exit /b
:loadf
set filexist=1
call :errsh "%~1"
for /f "usebackq tokens=2,3,4 delims=," %%a in (`openfiles /query /fo csv /nh`) do (if "%%~b"=="!de!" (if not "%%~a"=="cmd.exe" (if not "%%~a"=="openfiles.exe" (set filexist=0& set /a fil+=1& set fil!fil!=Файл "%~2" занят процессом "%%~a")))
if "%%~c"=="!de!\" (set filexist=0& set /a fil+=1& set fil!fil!=Файл "%~2" смотрит пользователь "%%~a"))
if "!filexist!"=="1" (copy /y "%~1" "%~dp0" >nul&& del /f /q "%~1"&& set pdf=Файл "%~2" получен)
call :cleanmassf
exit /b
:loadd
set folexist=1
call :errsh "%~1"
for /f "usebackq tokens=2,3,4 delims=," %%a in (`openfiles /query /fo csv /nh`) do (if "%%~b"=="!de!" (if not "%%~a"=="cmd.exe" (if not "%%~a"=="openfiles.exe" (set folexist=0& set /a fol+=1& set fol!fol!=Папка "%~2" занята процессом "%%~a")))
if "%%~c"=="!de!\" (set folexist=0& set /a fol+=1& set fol!fol!=Папку "%~2" смотрит пользователь "%%~a"))
if "!folexist!"=="1" (xcopy /e /c /i /q /r /y "%~1" "%~dp0%~2" >nul&& rd /s /q "%~1"&& set pdd=Папка "%~2" получена)
call :cleanmassd
exit /b
:cleanmassf
set clearmassf=1
set clearmassf!clearmassf!=!fil1!
for /l %%h in (1,1,!fil!) do (set error=0
for /l %%a in (1,1,!clearmassf!) do (if "!clearmassf%%a!"=="!fil%%h!" (set error=1))
if "!error!"=="0" (set /a clearmassf+=1& set clearmassf!clearmassf!=!fil%%h!))
exit /b
:cleanmassd
set clearmassd=1
set clearmassd!clearmassd!=!fol1!
for /l %%h in (1,1,!fol!) do (set error=0
for /l %%a in (1,1,!clearmassd!) do (if "!clearmassd%%a!"=="!fol%%h!" (set error=1))
if "!error!"=="0" (set /a clearmassd+=1& set clearmassd!clearmassd!=!fol%%h!))
exit /b
:errsh
set de=%~1X
:errshag
set de=!de:~0,-1!
if "!de:~-1!"=="\" (set de=!de:~0,-1!& exit /b)
goto errshag