Цитата: Kiya229 от 08.08.2022, 22:01

Когда-то давно, ещё в том году задумался написать для себя программу, которая чистит системную папку с загрузками так как мне нужно.

[spoiler title="CleanDay.bat"]

@echo off
chcp 65001 >nul

set "n=&echo."

set sFolderName=%date% (%time:~0,-3%)
set usname=%username%

md C:\Users\%usname%\Downloads\"На удаление"\"%sFolderName::=-%"
Echo Была создана папка %sFolderName::=-% в каталаге "На удаление"

robocopy "C:\Users\%username%\Downloads" "C:\Users\%username%\Downloads\На удаление\%sFolderName::=-%" /move /e /XD "На удаление"
cls&Echo Все файлы были перемещены в C:\Users\%usname%\Downloads\На удаление\%sFolderName::=-% %n%Через месяц, вам придёт уведомление об удалении!
timeout /t 5 & exit

[/spoiler]

[spoiler title="CleanMon.bat"]

@echo off
chcp 65001 >nul
:ForseRequest
set ForseImput=
Echo Предупреждение об удалении файлов
set /p ForseImput="Y - Удалить, N - Не удаляь. Y/N:"

if /i "%ForseImput%"==" " (cls& Echo Ошибка: Введен пробел& goto ForseRequest)
    if /i "%ForseImput%"=="" (cls& Echo Ошибка: Ничего не введено & goto ForseRequest)
        if /i %ForseImput%==y (cls& set Forse=1&& goto Runing)
            if /i %ForseImput%==n (cls& set Forse=0&& goto Closing)
cls& echo Ошибка: Неверный ввод& goto ForseRequest          
echo ==============================
:Runing

set usname=%username%

set targetdir="C:\Users\%usname%\Downloads\На удаление\"
del /q %targetdir%\*
for /d %%x in (%targetdir%\*) do @rd /s /q ^"%%x^"


exit

:Closing
exit
pause

[/spoiler]

[spoiler title="Cleaner.bat"]

@echo off
chcp 65001 >nul

for /F "delims=" %%i in (Config.cfg) do set VAR1=%%i
if "%VAR1%"=="'ClanerMon=0 CleanerDay=0'" (set Forse=0) 


for /F "delims=" %%i in (Config.cfg) do set VAR1=%%i
if "%VAR1%"=="'ClanerMon=1 CleanerDay=1'" (set Forse=1) 

set "n=&echo."
set usname=%username%

:ForseRequest
set ForseImput=
Echo Данная программа предназначена для ежемесячной очистки папки с загрузками,%n%хотите-ли вы добавить задачу в планировщик задач?%n%Добавить задачу?%n%Статус программы:%Forse%
set /p ForseImput="Y - Хочу, N - Не хочу. Y/N:"

if /i "%ForseImput%"==" " (cls& Echo Ошибка: Введен пробел& goto ForseRequest)
    if /i "%ForseImput%"=="" (cls& Echo Ошибка: Ничего не введено & goto ForseRequest)
        if /i %ForseImput%==y (cls& set Forse=1&& goto Runing)
            if /i %ForseImput%==n (cls& set Forse=0&& goto Closing)
cls& echo Ошибка: Неверный ввод& goto ForseRequest          
echo ==============================
:Runing
Copy CleanDay.bat C:\Windows\CleanerDay.bat
Copy CleanMon.bat C:\Windows\CleanerMon.bat
cls
Echo Программа была запущена
Echo 'ClanerMon=1 CleanerDay=1'> Config.cfg
Echo Статус программы: %Forse%

md C:\Users\%usname%\Downloads\"На удаление"
Echo Была создана папка C:\Users\%usname%\Downloads\На удаление

SCHTASKS /create /sc MONTHLY /st 08:00 /tn CleanerMon /tr "C:\Windows\CleanerMon.bat start /min"
cls
Echo Была создана задача, запускать очистку каждый месяц
SCHTASKS /create /sc DAILY /st 20:00 /tn CleanerDay /tr "C:\Windows\CleanerDay.bat start /min"
cls
Echo Была создана задача, запускать ежедневную пред-очистку
pause
exit

:Closing

Echo Вы действительно хотите удалить задачу по ежемесячной очитске?
pause
cls
SCHTASKS /delete /tn CleanerMon 
cls
Echo Задача по ежемесячной очистке была удалена
Echo Вы действительно хотите удалить задачу по ежедневной очистке?
pause
SCHTASKS /delete /tn CleanerDay 
cls
del C:\Windows\CleanerDay.bat
del C:\Windows\CleanerMon.bat
cls
Echo Задача по ежедневной очистке была удалена
Echo Программа была отключена
Echo 'ClanerMon=0 CleanerDay=0'> Config.cfg
Echo Статус программы: %Forse%
pause
exit

[/spoiler]

Сама суть программы: Спросить пользователя, правда ли он хочет добавить программу в планировщик задач. Если пользователь соглашается: Создать папку "На удаление", в каталоге "Downloads", и добавить в планировщик задач. По достижению 23:59, создать папку с текущей датой, перенести все файлы из загрузок в папку "На удаление", в каталог с текущей датой. В последний день месяца удалить все папки из каталога "На удаление". Хотелось бы, чтобы кто-нибудь довёл это дело до ума, сам я не помню как всё тут работает. Да, есть системная сортировка файлов, но она мне не нравиться, лично для меня удобнее смотреть по папкам. Это просто была задача, которую я решал от скуки.