Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Дата/время изменения файлов из получателя в источник
Goto page Previous  1, 2, 3  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Aug 03, 2019 06:21    Post subject: Reply with quote

Quote:
Телепатические?
Что? Программы? Опера среди них? Very Happy

Quote:
Ну так, как ты предположил - в случае несовпадения.
Сделал.
Quote:
Да и зачем куда-то лезть, когда колонка со временем вроде бы имеется.
"Вроде бы" я на это и указал. Смена сортировки — лишнее действие.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 651

Post (Separately) Posted: Sat Aug 03, 2019 06:45    Post subject: Reply with quote

Quote:
Сделал.

Строка 10, символ 57. Недопустимый знак.
Вроде бы уже мудрое утро настало.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Aug 03, 2019 06:53    Post subject: Reply with quote

Да если б дело в часах было... Вручную правил. Раскладка не сменилась. Заменил символ. Также версию ТС указал в первом коде.

Так уж и быть, чисто ради разминки — упрощённые (без тултипов) и адаптированные под TC 8.52a версии к первому ТЗ:
Code:
'========================== VBS ===========================
' Замена дат модификации выбранных в активной панели файлов
' на даты модификации файлов, выбранных в пассивной панели

' Условия: • необходим компонент TCScript.dll 1.0.0.14+
'          • источник не должен совпадать с получателем
'          • числа файлов в панелях должны совпадать
'          • должны быть выбраны только файлы

' Параметры: %S1 %R1
'==========================================================
Option Explicit
Dim TCH, FSO, SP, TP, AList, PList, c, i, F, MDate
If WSH.Arguments.Count < 2 Then Quit
Set TCH = CreateObject("TCScript.Helper")
Set FSO = CreateObject("Scripting.FileSystemObject")
SP = TCH.GetInfo("SP") : TP = TCH.GetInfo("TP")
If Not FSO.FileExists(SP & WSH.Arguments(0)) Then Quit
If Not FSO.FileExists(TP & WSH.Arguments(1)) Then Quit
If SP = TP Then Quit
AList = TCH.GetSrcSelectedFiles(1)
TCH.LockTC True : PList = TCH.GetTrgSelectedFiles(1) : TCH.LockTC False
c = UBound(AList) : If c <> UBound(PList) Then Quit
For i = 0 To c
  MDate = FSO.GetFile(PList(i)).DateLastModified : Set F = FSO.GetFile(AList(i))
  If MDate <> F.DateLastModified Then TCH.SetFileDateAtr AList(i), F.DateCreated, MDate
Next
Sub Quit: Set FSO = Nothing : Set TCH = Nothing : WSH.Quit :End Sub
CreateObject("WScript.Shell").Popup Space(13) & "Выполнено!",_
 1.4, " Замена дат модификации файлов      ", 4160 : Quit
Code:
'========================== VBS ===========================
' Замена дат модификации выбранных в активной панели файлов
' на даты модификации файлов, выбранных в пассивной панели

' Условия: • источник не должен совпадать с получателем
'          • числа файлов в панелях должны совпадать
'          • должны быть выбраны только файлы
'          • путь запуска — пустой

' Параметры: %WF "%T" %R
'==========================================================
Option Explicit : Dim A, C, FSO, AP, List, i, n, MDate
Set A = WSH.Arguments : C = A.Count : If C < 3 Then WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO
  AP = .GetAbsolutePathName("")
  If StrComp(AP & "\", A(1), 1) = 0 Then WSH.Quit
  If  Not  .FileExists(A(1) & A(2)) Then WSH.Quit
  List = Split(.OpenTextFile(A(0),,,-1).ReadAll, vbCrLf)
End With
If Right(List(0), 1) = "\" Then WSH.Quit
If Ubound(List)  <>  C - 2 Then WSH.Quit
Set AP = CreateObject("Shell.Application").NameSpace(AP)
For i = 0 To C - 3
  MDate = FSO.GetFile(A(1) & A(i + 2)).DateLastModified
  If MDate <> FSO.GetFile(AP.Self.Path & "\" & List(i)) _
  Then AP.ParseName(List(i)).ModifyDate = MDate : n = 1
Next
If n Then CreateObject("WScript.Shell").Popup Space(13) &_
"Выполнено!", 1.4, " Замена дат модификации файлов      ", 4160
Последний (без Хелпера) имеет лимит списка пассивной панели в рамках длины комстроки.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 651

Post (Separately) Posted: Sun Aug 04, 2019 01:28    Post subject: Reply with quote

1. В "C:\Замена" отсутствует расширение имени файла.
2. Так же.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Aug 04, 2019 08:01    Post subject: Reply with quote

И это ты называешь багрепортом?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 651

Post (Separately) Posted: Mon Aug 05, 2019 03:14    Post subject: Reply with quote

https://i.imgur.com/nzSxXk2.jpg
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Aug 05, 2019 14:02    Post subject: Reply with quote

Это не баг. В первом случае ты не взял путь скрипта в кавычки, а во втором не убрал путь к wscript.exe.

И почему молчишь про предыдущее исправление? Без обратной связи желание помогать пропадает...
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 651

Post (Separately) Posted: Tue Aug 06, 2019 02:42    Post subject: Reply with quote

Quote:
В первом случае ты не взял путь скрипта в кавычки, а во втором не убрал путь к wscript.exe.

Ничего такого нет. Я просто перетаскиваю скрипт на панель и добавляю параметры.

Про какое предыдущее исправление?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Aug 06, 2019 03:01    Post subject: Reply with quote

Странно. Покажи полностью строку команды.

То, что ты просил по второму коду топика.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 651

Post (Separately) Posted: Tue Aug 06, 2019 03:03    Post subject: Reply with quote

"C:\Замена дат модификации выбранных в активной панели файлов (tc8).vbs"

Добавлено спустя 35 секунд:

Переименовать?

Добавлено спустя 5 минут:

Изменить даты модификации файлов активной панели на даты одноимённых файлов пассивной.vbs?

Спасибо, нормально работает.

Добавлено спустя 15 минут:

Хм, оба варианта работают, если в пути нет пробелов. Независимо от наличия кавычек. С чего бы это...
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Aug 06, 2019 03:54    Post subject: Reply with quote

И ТС у тебя 8.52a? Так?

Dimsok wrote:
Спасибо, нормально работает
Пож-та, хорошо.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 651

Post (Separately) Posted: Tue Aug 06, 2019 04:02    Post subject: Reply with quote

Так.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Aug 06, 2019 04:05    Post subject: Reply with quote

Хм. А строку для первого варианта ты не показал.

Dimsok wrote:
нормально работает.
А с /r проверял?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.


Last edited by Flasher on Tue Aug 06, 2019 04:13; edited 1 time in total
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 651

Post (Separately) Posted: Tue Aug 06, 2019 04:12    Post subject: Reply with quote

"C:\Замена дат модификации выбранных в активной панели файлов2 (tc8).vbs"
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Aug 06, 2019 04:15    Post subject: Reply with quote

Так а где путь к wscript.exe спереди? Я же тебе архив дал.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3  Next
Page 2 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group