Flasher
|
Posted: Sun Jan 12, 2020 01:11 Post subject: |
|
|
Code: | ' Путь запуска — пустой
'——————————————————————
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 |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Sun Jan 12, 2020 21:52; edited 1 time in total |
|