View previous topic :: View next topic |
Author |
Message |
nLnoOm
Joined: 22 Jun 2020 Posts: 2
|
(Separately) Posted: Mon Jun 22, 2020 02:03 Post subject: Изменение даты нескольких файлов с разницей в секунду |
|
|
Здравствуйте все. Часто использую в Total Commander функцию "изменения атрибутов файла", меняю дату последнего изменения. Но когда выделяешь сразу несколько файлов и меняешь их дату, то она у всех становится одинаковая, а мне хотелось бы, чтобы она отличалась хотя бы на одну секунду.
То есть, к примеру, чтобы у 1.jpg была дата последнего изменения 22 июня 2020 г., 0:04:53, у 2.jpg 22 июня 2020 г., 0:04:54, у 3.jpg 22 июня 2020 г., 0:04:55, у 4.jpg 22 июня 2020 г., 0:04:56 и так далее. Как это можно сделать? Вручную не вариант. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Flasher
![](images/avatars/11897631144e285f14b2775.jpg)
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Jun 22, 2020 05:24 Post subject: |
|
|
Code: | '=============================== VBS ===============================
' Установка даты модификации файлов с пошаговым изменением интервала
'
' Параметры: %WL <интервал> [-]<число интервалов> [/d]
' Примеры: %WL s 1 /d | %WL n -5
'
' /d — ввод даты/времени в диалоге, иначе будут использованы текущие
' Интервал принимает следующие значения: s - секунда
' n - минута
' h - час
' d - день
' ww - неделя
' m - месяц
' q - квартал
' yyyy - год
'============================================== Автор: Flasher © ===
Option Explicit : Dim A, D, Y, List, Desc, F, c, Ins
Set A = WSH.Arguments : If A.Count = 0 Then WSH.Quit
D = Now : c = 0 : If A.Named.Exists("d") Then InputB
Set List = CreateObject("Scripting.FileSystemObject").OpenTextFile(A(0),,,-1)
Set Desc = CreateObject("Shell.Application").NameSpace(0)
Do: F = List.ReadLine
If Right(F, 1) <> "\" Then Desc.ParseName(F)._
ModifyDate = DateAdd(A(1), c, D) : c = c + A(2)
Loop Until List.AtEndOfStream : List.Close
Set List = Nothing : Set Desc = Nothing
Sub InputB
Dim i, n, x
For Each i in Split("sсекунд a ы |nминут a ы |hчас а ов|dд ень " &_
"ня ней|wнедел я и ь|mмесяц а ев|qквартал а ов|y год года лет", "|")
If Left(i, 1) = Left(A(1), 1) Then i = Mid(i, 2) : Exit For
Next
n = Abs(Right(A(2), 2)) : x = Right(n, 1) : If x = 0 Or (n > 10 And _
n < 21 Or x > 4 And x < 10) Then n = 3 Else If x = 1 Then n = 1 Else n = 2
With CreateObject("htmlfile")
Y = 96/.Parentwindow.Screen.deviceYDpi
Y = 15*Y*(.Parentwindow.Screen.Height-188*Y)/2
End With
Do: D = Trim(InputBox(vbCr & "Интервал:" & vbTab & A(2) & " " &_
Split(i)(0) & Split(i)(n) & vbCr & vbCr & Ins & vbCr & vbCr &_
"Введите исходную дату и время:", " Установка дат модификации файлов", D,, Y))
If D = "" Then WSH.Quit
If Not IsDate(D) Then Ins = Space(18) & "Ошибка ввода!" Else Exit Do
Loop
End Sub |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Tue Jun 23, 2020 13:21; edited 2 times in total |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
nLnoOm
Joined: 22 Jun 2020 Posts: 2
|
(Separately) Posted: Mon Jun 22, 2020 21:29 Post subject: |
|
|
Flasher, то что нужно, спасибо. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Flasher
![](images/avatars/11897631144e285f14b2775.jpg)
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Jun 23, 2020 01:05 Post subject: |
|
|
nLnoOm
Пож-та. Всё-таки решил добавить отображение заданного интервала в окошке, чтобы не путаться. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Luserok
Joined: 04 Jul 2020 Posts: 1
|
(Separately) Posted: Sat Jul 04, 2020 02:46 Post subject: |
|
|
Спасибо за код. Хотелось бы еще узнать, каким образом он вообще внедряется??
Last edited by Luserok on Fri Jul 31, 2020 23:50; edited 1 time in total |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Avada
![](images/avatars/765200809489b35982c966.jpg)
Joined: 01 Aug 2008 Posts: 10268 Location: Россия, Саратов
|
(Separately) Posted: Sat Jul 04, 2020 06:35 Post subject: |
|
|
Luserok
Памятка по скриптам для этого подфорума обязательна к прочтению новичками. Вот там и узнайте. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
griha09
Joined: 27 Oct 2011 Posts: 9
|
(Separately) Posted: Tue Dec 01, 2020 22:54 Post subject: |
|
|
Flasher, не подскажите какой файл требует ваш скрипт?
В папке в фотками jpg запускаю ваш скрипт с параметрами:
скрипт.vbs %WL s 1 /d
выходит запрос с вводом времени
ОК
появляется ошибка
ошибка:Файл не найден код:800A0035
ругается на строку Set List = CreateObject("Scripting.FileSystemObject").OpenTextFile(A(0),,,-1)
т.е. отсутствует какой-то текстовый файл.
Какой файл требует ваш скрипт?
с параметрами скрипт.vbs %WL n -5 та же самая ошибка |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Parazit
![](images/avatars/1726642576583ea440dd5be.jpg)
Joined: 16 Nov 2016 Posts: 25 Location: Россия
|
(Separately) Posted: Wed Dec 02, 2020 03:56 Post subject: |
|
|
Вот такие надо параметры.
А не такие.
Code: | скрипт.vbs %WL s 1 /d |
|
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Avada
![](images/avatars/765200809489b35982c966.jpg)
Joined: 01 Aug 2008 Posts: 10268 Location: Россия, Саратов
|
(Separately) Posted: Wed Dec 02, 2020 09:06 Post subject: |
|
|
griha09
Ранее вы о необходимости освоить поиск по форуму предупреждались неоднократно, результатов так и не видно. Даже текущую тему из одной страницы как следует не читаете. Скрипт требует прежде всего внимательного прочтения прикреплённой к этому подфоруму памятки и точного следования тому, что там написано ( в т.ч. в пп. 3-5 общих рекомендаций). Ссылка на ту же памятку дана и ровно перед вашим сообщением.
Замечание за нарушение правил форума. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
griha09
Joined: 27 Oct 2011 Posts: 9
|
(Separately) Posted: Wed Dec 02, 2020 12:51 Post subject: |
|
|
Извиняюсь, по привычке, тестировал без создания кнопки (из командной строки).
Чтоб избежать лишних вопросов, в описание скрипта надо добавить :
"Перед применением скрипта изменяемые файлы нужно выделить" |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Avada
![](images/avatars/765200809489b35982c966.jpg)
Joined: 01 Aug 2008 Posts: 10268 Location: Россия, Саратов
|
(Separately) Posted: Wed Dec 02, 2020 13:13 Post subject: |
|
|
griha09
Подобные добавления не нужны ни в этом, ни в иных скриптах, поскольку здравый смысл ещё никто не отменял: несколько файлов могут быть обработаны только с предварительным их выделением, а для одного файла такая задача не нужна. Про это выделение как исходное условие говорилось в запросе на скрипт, оно же подразумевается и стандартными параметрами типа %WL. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|