Переименование нового файла в папке

[markuss]

Доброго времени!
Подскажите, пожалуйста.
Задача банальна - есть папка, в ней появляется периодически новый файл с известным именем. Нужно этому файлу присвоить имя. Имя - дата с точностью до секунды.

Сообщение автоматически объединено: 16 Мар 2022

Сам себе отвечу, через bat'ник

:loop
timeout /t 1
rem @echo off

set dd=%DATE%
set tt=%TIME%

set /a ddd=%dd:~0,2%
IF %ddd% LSS 10 (
SET day=0%ddd%) else (
SET day=%ddd%)
set month=%dd:~3,2%
set year=%dd:~6,4%

set /a ttt=%tt:~0,2%

IF %ttt% LSS 10 (
SET hour=0%ttt%) else (
SET hour=%ttt%)

SET minute=%tt:~3,2%
SET sec=%tt:~6,2%

echo %day% %month% %year% %hour% %minute% %sec%

ren тутимяфайла.расширение %day%%month%%year%_%hour%%minute%%sec%.расширение

goto loop

 

[IMStrelcov]

$sFileIn = @ScriptDir& '\test.txt'
MonitoringFile_($sFileIn)

Func MonitoringFile_($_sFileIn)
   Local $_sFileOut
   $_aFileIn = StringRegExp($_sFileIn, '(?isx)(.*?)(\.[^\.\h\\:]+?)?$', 3)
   While Sleep(500)
      If Not FileExists($_sFileIn) Then ContinueLoop
      $_sFileOut = $_aFileIn[0]& ' ['& @YEAR& '.'& @MON& '.'& @MDAY& ' '& @HOUR& '.'& @MIN& '.'& @SEC& '.'& @MSEC& ']'& $_aFileIn[1]
      FileMove($_sFileIn, $_sFileOut, 1+8)
      ;ConsoleWrite($_sFileOut& @LF)
   WEnd
EndFunc