Изменение даты и времени файлов (BATCH скрипты)

@echo off
echo %~t0
 
set catalog=%CD%
set /A ignorehidden=0
set /A ignorereadonly=0
set /A ignorearchived=0
set /A ERRORLEVEL=0
 
 
if "%~1"=="/?" goto :help
 
:loop
if not "%~1"=="" (
    if "%~1"=="-r" (
        set /A ignorereadonly=1
        shift
        goto :loop
    ) 
    if "%~1"=="-h" (
        set /A ignorehidden=1
        shift
        goto :loop
    )
    if "%~1"=="-a" (
        set /A ignorearchived=1
        shift
        goto :loop
    ) 
    if not "%~1"=="" (
        set catalog=%~s1
        shift
    )
    goto :loop
 
)
 
:check_attributes 
setlocal enabledelayedexpansion
for %%F in ("%catalog%") do (
    set attributes=%%~aF
    if "%ignorereadonly%"=="1" (
        if "!attributes:~1,1!" neq "r" (
            goto :set_error_1
        )   
    )
    if "%ignorearchived%"=="1" (
        if "!attributes:~2,1!" neq "a" (
            goto :set_error_1
        )   
    )
    if "%ignorehidden%"=="1" (
        if "!attributes:~3,1!" neq "h" (
            goto :set_error_1
        )   
    )
    
)
endlocal
 
 
for /f "delims=" %%a in ('dir/a-d/b/s "E:\Учёба\Архитектура ПК лб3\test\*.*"') do nircmd.exe setfiletime "%%a" "29-03-2003 21:03:03" "09-01-2001 00:00:00" 
 
 
:exitkey
if %ERRORLEVEL%==0 (
    echo Каталог %catalog% успешно найден
) else (
    echo Не удалось найти каталог %catalog%
)
 
exit /b
 
:set_error_1
set /A ERRORLEVEL=1
goto :exitkey
 
:help
echo Помощь:
@echo. 
echo Если синтаксис ожидаемый, тоесть search [искомый каталог для поиска] [атрибуты]
echo или же search [атрибуты] [искомый каталог для поиска], то программа завершит работу
echo с кодом ERRORLEVEL = 0 (все работает нормально), в противном случае
echo ERRORLEVEL = 1 (ошибка, работает не корректно) 
@echo.
echo Присутствующие и доступные атрибуты:
echo -h (hidden): фильтровать спрятанные каталоги
echo -r (readonly) : фильтровать каталоги только для чтения
echo -a (archive) : фильтровать архивированные каталоги
echo По умолчании все атрибуты = 0 
exit /b

@echo off
setlocal EnableDelayedExpansion
set "attrib_1=%*"
set "date_creation=29-03-2003"
set "date_modification=09-01-2001"
for /f "delims=" %%a in ('dir /a-d/b/s "E:\Учёба\Архитектура ПК лб3\test\*.*"') do (
    call :step_1 "%%a"
)
if not defined success echo Ни одного файла с указанными параметрами не обнаружено
pause
exit
:step_1
for /f "tokens=* delims=" %%a in ('powershell -executionpolicy bypass -command "(Get-ItemProperty -Path '%~1').Attributes | ForEach-Object {$string+=$_}; $array=$string.tostring().split(" "); foreach ($a in $array) {$string_2+=$a.Chars(0) + ' '}; $string_2"') do (
    set "attrib_2=%%a"
    for %%b in (!attrib_2!) do (
        for %%c in (%attrib_1%) do (
            if /i %%b==%%c (
                set /A success+=1
                setdate.exe -c %1 %date_creation%
                setdate.exe -m %1 %date_modification%
                exit /b
            )
        )
    )
)
exit /b

@echo off
setlocal EnableDelayedExpansion
set "attrib_1=%*"
set "date_creation=28-03-2003"
set "date_modification=08-01-2001"
set /a %ERRORLEVEL%=0
 
for /f "delims=" %%a in ('dir /a-d/b/s "E:\Учёба\Архитектура ПК лб3\test\*.*"') do (
    call :step_1 "%%a"
)
if not defined success goto :mistake
pause
 
:exitkey
if %ERRORLEVEL%==0 (
    echo Файлы с указанными параметрами обнаружены
) else (
    echo Ни одного файла с указанными параметрами не обнаружено
)
 
exit /b
:step_1
for /f "tokens=* delims=" %%a in ('powershell -executionpolicy bypass -command "(Get-ItemProperty -Path '%~1').Attributes | ForEach-Object {$string+=$_}; $array=$string.tostring().split(" "); foreach ($a in $array) {$string_2+=$a.Chars(0) + ' '}; $string_2"') do (
    set "attrib_2=%%a"
    for %%b in (!attrib_2!) do (
        for %%c in (%attrib_1%) do (
            if /i %%b==%%c (
                set /A success+=1
                setdate.exe -c %1 %date_creation%
                setdate.exe -m %1 %date_modification%
                exit /b
            )
        )
    )
)
:mistake
set /A ERRORLEVEL=1
goto :exitkey
 
exit /b

@chcp 1251>nul
@set "d=01/01/2020 01:02:03"
@pushd E:\Учёба\Архитектура ПК лб3\test
 
:sel
@set /p a="Введите атрибуты [ahrs]: "
@echo %a%|findstr /rc:"[^ahrs]"&&(cls&goto sel)
@powershell -c "ls -R -Force|where {$_.Mode -match '^[^d].*[%a%]'}|%%{if($_.Mode -match 'r'){$c=1;sp -Path $_.FullName -Name IsReadOnly -Value $false};$_.LastWriteTime='%d%';$_.CreationTime='%d%'; if($c=1){$c=0;sp -Path $_.FullName -Name IsReadOnly -Value $true}}"

@Echo Off
@chcp 1251>nul
SetLocal EnableDelayedExpansion
 
Set DataRoot=%~dp0
Set OutFile=%~dp0out.txt
Set Extensions=mp3 mp4 avi
del /q %OutFile%>nul
:: Задаем время
:#TimeTime
Set $TIME=30
For /f "delims=+-" %%i In ('WMIC OS Get LocalDateTime^|Find "."') Do Set DT=%%i
Set /a tmsec= 3600 * (1%DT:~8,2%-100) + 60 * (1%DT:~10,2%-100) + 1%DT:~12,2%-100
Echo %DT:~8,2%.%DT:~10,2%.%DT:~12,2%
:: Задаем время конец
:::::::::::::::
  For %%A In (%Extensions%) Do (
    For /F "delims=" %%B In ('Dir "%DataRoot%\*.%%A" /B /A-D '
) Do (
set /a NumFile+=1& Echo !NumFile!   %%B
Echo !NumFile!  %%B>>"%OutFile%"
set NewFile=%DataRoot%NewFolder!NumFile!%%B 
set OldFile=%DataRoot%%%B
rem rem move %OldFile% %NewFile% rem Операция перемещения файлов в текущей папке
call #Repeat
Set NewTime=%h%:%m%:%s%
@set "NewDdateTime=01/01/2020 %NewTime%"
call #ChangeAttribute %NewFile% %NewDdateTime% Rem Билеберда, увы мне...
)
  )
:::::::::::::::
pause
exit
 
:#ChangeAttribute 
@set  a=a h
Set a=%2
@pushd %1
@echo %a%|findstr /rc:"[^ahrs]"&&(cls&goto sel)
@powershell -c "ls -R -Force|where {$_.Mode -match '^[^d].*[%a%]'}|%%{if($_.Mode -match 'r'){$c=1;sp -Path $_.FullName -Name IsReadOnly -Value $false};$_.LastWriteTime='%d%';$_.CreationTime='%d%'; if($c=1){$c=0;sp -Path $_.FullName -Name IsReadOnly -Value $true}}"
Exit /b
 
 
:: Добавляем 30 с
:#Repeat
Echo + %$TIME%
Set /a tmsec= tmsec + %$TIME%
Set /a h = tmsec / 3600 %% 24, m = tmsec %% 3600 / 60, s = tmsec %% 3600 %% 60
Set h=0%h%& Set m=0%m%& Set s=0%s%
Set h=%h:~-2%& Set m=%m:~-2%& Set s=%s:~-2%
Echo %h%.%m%.%s%
exit /b