' Изменяет время в имени файла (прибавляет час)
' например:    2022-07-30 23-37-56.mp4   ->   2022-07-31 00-37-56.mp4
' параметры %WL

on error resume next
Set FSO = CreateObject("Scripting.FileSystemObject")
FileList = WScript.Arguments(0)
List = Split(FSO.OpenTextFile(FileList,,,-1).ReadAll, vbNewLine)

For Each filename In List
  if filename="" then WScript.Quit ' выход на последней пустой строке
  fn = FSO.GetBaseName(filename) ' Имя файла
  ext="." & FSO.GetExtensionName(filename) ' расширение файла
 
  Dy1=mid(fn, 1, 4): Dm1=mid(fn, 6, 2): Dd1=mid(fn, 9, 2) ' вычленяем из имени дату (год, месяц, день)
  Th1=mid(fn, 12, 2): Tm1=mid(fn, 15, 2): Ts1=mid(fn, 18, 2) ' вычленяем из имени время (часы, минуты, секунды)
  dat1=Dd1 & "." & Dm1 & "." & Dy1 & " " & Th1 & ":" & Tm1 & ":" & Ts1 ' преобразование в дату/время

  dat2=dateadd("h", 1, dat1) ' Здесь прибавляем 1 час ко времени
  Dy2=Year(dat2): Dm2=right("0" & Month(dat2), 2): Dd2=right("0" & Day(dat2), 2) ' разбиваем на год, месяц, день
  Th2=right("0" & Hour(dat2), 2): Tm2=right("0" & Minute(dat2), 2): Ts2=right("0" & Second(dat2), 2) ' разбиваем на часы, минуты, секунды
 
  newfnext=Dy2 & "-" & Dm2 & "-" & Dd2 & " " & Th2 & "-" & Tm2 & "-" & Ts2 & ext ' формирование нового имени файла
  FSO.GetFile(filename).Name = newfnext ' переименование файла
next