' Путь запуска — пустой
'——————————————————————
Option Explicit : Dim WSS, Items, F, N
Set WSS = CreateObject("WScript.Shell")
Set Items = CreateObject("Shell.Application").NameSpace(WSS.CurrentDirectory).Items
Items.Filter 73920, "*.jpg;*.mp4"
For Each F in Items
N = F.Name : F.ModifyDate = Left(N, 13) & ":" & Mid(N, 15, 2) & ":" & Mid(N, 18, 2)
Next : WSS.SendKeys "^r" : Set WSS = Nothing : Set Items = Nothing |