Установить даты модификации файлов по тексту в именах

[timson]

Помогите пожалуйста. Нужно изменить атрибуты файла в пакетном режиме,а именно дату создания и дату модификации. Но хотя бы дату модификации. Так как каталогизаторы, в том числе гугл фото сортировку осуществляет на основании даты изменения. Не пакетно , все делается через тотал командер-изменить атрибуты и выбрав соответственно-дату создания или дату модификации.

[Flasher]

Какой ещё пакетный режим для файла? Для файлов в разделе несколько тем со скриптами/кнопками. Неужели так сложно поискать?

[timson]

Я , естественно , смотрел все темы.
Нужно изменить дату модификации на основании имени файла вида 2020-01-11 21h23m44.mp4

[Avada]

timson
Сформулируйте для начала нормально свою задачу. Изменить дату модификации — чего? Группы файлов? И на основе чего? Одного файла с таким именем? Вы им всем, попросту говоря, одинаковые дату и время выставить хотите, что ли, или как? Пока непонятно. Тем более, что предыдущие обсуждения с вашим участием показали: у вас о пакетных операциях довольно своеобразное представление.

[timson]

Задача моя прежняя- разложить фотографии и видео , снятые на телефон за много лет по одному алгоритму. С фотографиями все понятно, все фотографии имеют дату создания фото , прописанные через exif и на основании этих данных имя файла переименовывается в вид 2020-01-11 10h23m43.jpg ,а вот с видео сложнее. Опытным путем выяснилось, что есть дата создания файла видео, дата модификации., дата создания мультимедиа. Каталогизаторы light room берут дату изменения (модификации), гугл фото так же берет дату (изменения) модификации. Вот мне и надо исправить даты (изменения) модификации видео файлов в контейнере mp4 , на основании имени файла вида 2020-01-11 10h23m43.mp4.PS Дата модификации совпадает с датой изменения из под виндовского проводника.

[Avada]

timson
Ладно. Кто захочет в этом разбираться, пусть разбирается, лично у меня больше свободного времени на это нет.

[Flasher]

Код: Выделить всё

' Путь запуска — пустой
'——————————————————————
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

[timson]

Что это за скрипт?

[Flasher]

Написанный на основном скриптовом языке данного раздела.

[timson]

Хорошо это понятно. Но,что он делает скажите пожалуйста? Он подходит под мою задачу? Это vbs ?

[Avada]

timson
Я вынужден вернуться в эту тему уже в качестве модератора форума. Человеку, зарегистрированному здесь с 2015 года и уже, мягко говоря, не впервые задающему вопросы по автоматизации, спрашивать о некоторых вещах попросту неприлично. В них давно пора разобраться, а не только беспрерывно собираться это сделать. У всякого разжёвывания элементарных вещей есть пределы, как и у терпения тех, кто на всё это отвечает. Откройте памятку и перечитайте её, если вы что-то не знаете или успели забыть.
А про то, подходит ли вам скрипт, именно от вас хотелось бы узнать после того, как вы его нормально сохраните и попробуете применить. Если вы хотите, чтобы вам и далее кто-то пытался помогать, естественно.