Поиск и переименование файлов с помощью BATника

[ovrtke]

Помогите написать!
Нужен батник, который бы сканировал определенный путь (который пропишем) на изминенные СЕГОДНЯ (текущая дата) файлы, смотрел на имя файла, и на дату изменения, если файл имеет имя тест.xlsx и изменен сегодняшней датой, то переименовывал на 210831 тест.xlsx (текущей датой), если есть файл с именем 210826 тест2.xlsx, который менялся 5 дней назад, и сегодня повторно изменился, то менял первые 6 символов на текущую дату изменения, если маски в виде 210826 нет вообще в имени файла то переименовывал в текущую дату изменения. Как я вижу, +-

@echo off
set thePATH=C:\temp
for /F "tokens=1-4 usebackq delims=. " %%1 in (`date /t`) do set mydate=%4%%3%%2%%1
ren test.xlsx %mydate%test.xlsx

Еще думаю нужно копать сюда -
Отслеживать изменения в файлах можно с помощью аттрибута "архивный".
Этот аттрибут выставляется автоматически ОС при любом изменении файла.
Вывести список файлов, у которых аттрибут "архивный" с помощью dir /a:a
Получить дату/время изменения файла можно с помощью модификаторов переменной цикла. Возможно for /
После переименования файла нужно снимать аттрибут архивный - это будет признак того, что файл уже обработан и в следующий раз он в обработку не попадет (если не будет модифицирован). Сделать это можно командой возможно attrib /?

Помогите дописать))

[DJ Mogarych]

1. А зачем все эти переименования файлов, если дату изменения файла легко вывести и так, и произвести необходимые манипуляции? Какая конечная цель этого переименования?
2. Чем геморроиться с батниками, осваивайте Powershell, где работать с метками файлов на порядок проще.

Например, вывести имена файлов и даты изменения и отсортировать по дате изменения:

dir "C:\Windows" |select name,LastWriteTime |sort lastwritetime

Name LastWriteTime
---- -------------
IsUn0419.exe 07.10.1998 18:14:18
IsUninst.exe 29.10.1998 16:45:06
WLXPGSS.SCR 31.03.2014 22:34:22
system.ini 10.07.2015 14:02:40
CSC 08.02.2016 10:38:14
eReg.dat 07.03.2016 20:31:28
DirectX.log 20.03.2016 10:14:34
popcinfo.dat 19.03.2017 9:24:05
UpdateAssistantV2 14.06.2017 22:12:14
VPNInstall.MIF 06.04.2018 19:25:42
DDACLSys.log 04.05.2018 0:49:16
pyw.exe 20.10.2018 14:06:16
py.exe 20.10.2018 14:06:16
pyshellext.amd64.dll 20.10.2018 14:08:32
InfusedApps 23.12.2018 22:57:15
VPNUnInstall.MIF 27.12.2018 20:39:56
RtlExUpd.dll 15.04.2019 5:13:56
progress.ini 06.12.2019 19:10:36
write.exe 07.12.2019 0:29:00
и т. д.

[megaloman]

@Echo Off
cls
Set "BoxIn=Z:\Box_In"
Set "Mask=*.xlsx"
Set "DateMask=^[2-9][0-9][0-1][0-9][0-3][0-9] .*"

Set "MyDate=%Date:~-2%%Date:~3,2%%Date:~0,2% "

Pushd "%BoxIn%" ||(Echo Filder "%BoxIn%" not found &Pause &Exit /B 1)
For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\%Mask%" /B /A:-D /O:-D /T:W`) Do (
Set "Name=%%f"
Set "Dfile=%%~tf"
Call Set "Dfile=%%Dfile:~0,10%%"
Call Echo %%Name%%| >nul 2>&1 FindStr /I /X /R /C:"%DateMask%" &&Call Set "Name=%%Name:~7%%"
Call :MyReName "%%f" "%%Name%%" "%Date%" "%%Dfile%%" "%MyDate%" ||(Popd &Exit /B 0)
)
Popd
pause
Exit /B 0

:MyReName
If %3==%4 (Ren %1 "%~5%~2") Else (Exit /B 1)
Exit /B 0Предполагается, что формат даты в системе имеет вид дд.мм.гггг
Иначе понадобятся небольшие корректировки.

[ovrtke]

к »
Дело в том, что есть необходимость переименовывать файлы которые изменялись текущей датой, это понятно что можно и тоталом смотреть измененные, но ручками не хочется сохранять в формат - 210901 тест.xlsx, а хочется просто сохранить test.xlsx запустить батник и он сам переименует этот файлик (и кучу других) в формат 210901 test.xlsx

Предполагается, что формат даты в системе имеет вид дд.мм.гггг
Иначе понадобятся небольшие корректировки »

А реально переделать в формат даты - 21 (год) 09 ( месяц) 01 (день) пробел тест.xlsx, выглядить должен так - 210901 test.xlsx

Еще ньюанс, если файл уже был изменен например вчера и имеет имя - 210831 тест.xlsx, я его открываю сегодня, т.е. 01.09, сохраняю и запускаю батник, он должен находить имена файлов которые начинаются на 21**** и заменять эти символы на текущую дату, дата использования батника будет с 01.09, т.е. потенциально файлы все будут начинаться на 21(м)(д) имя.расширение

[DJ Mogarych]

необходимость переименовывать файлы которые изменялись текущей датой »
Вот и вопрос - что это за необходимость такая. Для чего переименовывать, если метку даты и так можно извлечь из соответствующего поля?

[megaloman]

ovrtke, речь идет о формате даты в системе. То есть, как отображается дата в командах
Echo %date%
Dir.
Результат батника - "ггммдд имяфайла.xlsx"
где ггммдд сформирован из сегодняшней даты.
Пробуйте, спрашивайте.

[ovrtke]

Предполагается, что формат даты в системе имеет вид дд.мм.гггг
Иначе понадобятся небольшие корректировки. »

Такой вот error, и не нашел где прописать путь сканирования файлов ?

[ovrtke]

Вот и вопрос - что это за необходимость такая. Для чего переименовывать, если метку даты и так можно извлечь из соответствующего поля? »

Нужно мониторить кто что изменял

[ovrtke]

Придумал как сделать, только нужен небольшой upgrade. Нужно дописать если файл содержит вначале "21**** имя.xlsx" - удалять первые 6 символов и заменять на текущую дату. Проверил, батник переименовывает датой когда последняя дата изменения файла была, если ты открываешь документ - чего то меняешь и сохраняешь и запускаешь батник он переименовывает вот так: - 210901 210831 test.txt - т.е. вчерашнюю дату не изменяет и не удаляет а добавляет новую. Если имя файла было тест.xlsx и изменение было 210808 то батник переименовывает его как 210808 тест.xlsx. Помогите сделать апргрейд кода ))

У меня мысли крутятся, что нужно добавить: выделить подстроку с помощью set и запихнуть в if и прописать условие поиске, если 21**** тест.xlsx то удаляем первые 6 символов и заменяем их на текущие, как это сделать не пойму

@echo off
SetLocal EnableDelayedExpansion
set "workdir=c:\temp"
for /f "tokens=* delims=" %%a in ('dir /tc /o:-d /a:a /b "%workdir%" 2^>nul') do (
for /f "tokens=* delims=" %%b in ("%workdir%\%%a") do set "d=%%~tb"
set "d1=!d:~8,2!!d:~3,2!!d:~0,2!"
echo %workdir%\%%a !d1!
ren "%workdir%\%%a" "!d1! %%a"
attrib -A "%workdir%\!d1! %%a"
)
pause

[DJ Mogarych]

ОК, а как вы поймёте, кто изменял?

[ovrtke]

ОК, а как вы поймёте, кто изменял? »
Это не нужно знать кто, щас попытаюсь обьяснить

Есть общая папка, в которой работают 3-4 человека, в день открывается/добавляется/изменяется от 30-50 файлов, и сохранять ручками с текущей датой все то что ты открыл/изменил/сохранил не хочется, просто нужно запустить батник, он все изменит (все что ты сохранил/изменил/добавил) на текущую дату и все. В этой общей папке видно кто под каким паролем их сохранял/изменял, нам по большому счету не нужно, нужно лишь изменять на текущую дату изменения и все

мне осталось допилить что бы, если файл имеет имя уже с текущей датой, либо старой, и заново не прописывалась дата, а удалялась старая и ставилась новая, и побольшому счету проблема решена :)

[DJ Mogarych]

Всё равно непонятно, зачем переименовывать. Если нужно просто получать отчёт об изменённых файлах за сегодня в целях мониторинга, ничего переименовывать не требуется.

[ovrtke]

Всё равно непонятно, зачем переименовывать. »
ну вот нужно) такая цель...и нужно побольшому счету просто добавить 2 строчки в код, что то пробую пробую но видимо не хватает знаний в cmd...((

[megaloman]

ovrtke, Такой вот error, и не нашел где прописать путь сканирования файлов ? »Я считал, что это очевидно. У меня Set "BoxIn=Z:\Box_In"Вы напИшите свой путь. Единственное, если в пути кириллица, сохраните батник в 866 кодировке.
Я делаю тупо и дубОво: я анализирую сегодняшнюю дату (%Date%) c датой/временем модификации файла из Dir (%%~tf), усеченной до даты. Выделяю имя файла: если оно без даты "ггммдд " впереди, то беру его как есть "имябездаты", а если впереди дата, её из имени отбрасываю, получаю "имябездаты"и переименовываю файл с исходным именем в "ггммдд имябездаты" и не завихряюсь.

[megaloman]

Вот вариант, менее чувствительный к формату отображения даты в системе. По крайней мере ггммдд здесь берётся без зависимости от него. @Echo Off
cls
Set "BoxIn=Z:\Box_In"
Set "Mask=*.xlsx"
Set "DateMask=^[2-9][0-9][0-1][0-9][0-3][0-9] .*"

FOR /F "tokens=2 delims==." %%d in ('WMIC OS GET LOCALDATETIME /VALUE') DO SET "MyDate=%%d" &Call Set "MyDate=%%MyDate:~2,6%% "

Pushd "%BoxIn%" ||(Echo Filder "%BoxIn%" not found &Pause &Exit /B 1)

For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\%Mask%" /B /A:-D /O:-D /T:W`) Do (
For /F "delims= " %%d In ("%%~tf") Do (
If "%Date%"=="%%d" (
Set "Name=%%f"
Call Echo %%Name%%| >nul 2>&1 FindStr /I /X /R /C:"%DateMask%" &&Call Set "Name=%%Name:~7%%"
Call ReName "%%f" "%MyDate%%%Name%%"

) Else (
GoTo :Continue
)
)
)
:Continue
Popd
pause
Exit /B 0

[ovrtke]

megaloman »

Заработало, спасибо, попытаюсь доработать,а мой код который выше реально дописать ?

[megaloman]

,а мой код который выше реально дописать »Я писатель, а не читатель :) , возможно кому-то захочется.

[ovrtke]

thx to cooperate )

а реально еще вывести в окно cmd кол-во измененных файлов ?

[ovrtke]

Еще проблемка, пересохранил в 866 кодировке, все равно не хочет. Путь такой:
"c:\Users\borisov.a\Documents\Bitrix24\КМ НЗЧ\210831 ЕВРОПА\210830 Заказы УКРАИНА\"

[ovrtke]

папка Bitrix24 - это диск с битрикса