@echo off &setlocal enableextensions
::   Выделенным файлам присвоить атрибуты файла с пассивной панели
::   Параметры:   "%WL" %T%M
::   Автор:   Tol!k

call :attr "%~2"
for /f "delims=" %%f in ('type "%~1"') do attrib %#% "%%f"
goto :eof

:attr
for /f "delims=" %%a in ('attrib "%~1"') do set "attr=%%a"
setlocal enabledelayedexpansion
set "attr=!attr:~0,10!"
for /l %%i in (0,1,9) do set "#=!#! +!attr:~%%i,1! "
endlocal &set "#=%#: + =%"
goto :eof

TOTALCMD#BAR#DATA
c:\user\Batches\CopyAttr.bat
"%WL" %T%M
E:\Windows\System32\imageres.dll,-68
CopyAttr (Выделенным файлам присвоить атрибуты файла с %T)
c:\user\Batches\

-1

'==================================================================================
' Описание:   Установить атрибуты выделенных файлов/каталогов из файла под курсором
' Требования: Необходима регистрация WSH Helper for TC by Volniy
'==================================================================================
Option Explicit
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand 502 'Изменить атрибуты
TCS.Pause = 100
TCS.SendKeystroke "+{TAB 7}{SP}{TAB}{SP}{TAB 2}{SP}{TAB}{ENTER}"
Set TCS = Nothing
Wscript.Quit

TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Utils\nircmd\nircmd.exe"
setfilefoldertime %V "" "" "01-01-2012 08:08:08"
wcmicons.dll,7

'==================================================================================
' Изменение даты и времени выбранных файлов и папок активной панели на дату и время
' указанного файла/папки с возможностью рекурсивной обработки содержимого папок

' Параметры: "<путь к файлу>" %WL <индекс замены> <флаг рекурсии: 1>

' Путь к файлу: %V (активной панели) | %T%M (пассивной панели)

' Индекс замены принимает следующие значения:
' 1 - даты создания
' 2 - даты модификации
' 3 - даты последнего открытия
' 4 - даты создания и модификации
' 5 - даты создания и последнего открытия
' 6 - даты модификации и последнего открытия
' 7 - даты модификации, создания и последнего открытия

' Примеры параметров:  %T%M %WL 2  |  %V %WL 7  |  "C:\Тест" %WL 4 1

' Автор: Flasher ©
'================================= Путь к NirCmd ==================================
Nircmd = """%COMMANDER_PATH%\Utils\nircmd\nircmd.exe"""
'==================================================================================
With WScript.Arguments
  C = .Count : If C = 0 Then Quit
  File = .Item(0) : List = .Item(1) : Count = .Item(2)
End With : L = vbNewLine
If Not IsNumeric(Count) Then Msg
If Count < 1 Or Count > 7 Then Msg
Sub Msg
  MsgBox "Недопустимый индекс замены!"&L&L&"Смотрите описание.", 48, Space(30) & "Ошибка"
  WScript.Quit
End Sub

Set FSO   = CreateObject("Scripting.FileSystemObject")
Dim WSH : Set WSH = CreateObject("Wscript.Shell")
Set Shell = CreateObject("Shell.Application")

If FSO.FileExists(File) Then Set File  = FSO.GetFile(File) Else Set File = FSO.GetFolder(File)
DC = File.DateCreated : DM = File.DateLastModified : DA = File.DateLastAccessed
Repl DC : Repl DM : Repl DA : Set File = Nothing

Sub Repl(DT)
  Dy = Day(DT) : Mh = Month(DT) : Yr = Year(DT) : Hr = Hour(DT) : Mn = Minute(DT) : Sc = Second(DT)
  Num(Dy)(Mh)(Yr)(Hr)(Mn)(Sc)(Sc)
  If InStrRev(DT, "P") Then : If Hr < 12 Then Hr = Hr + 12 : End If
  DT = """" & Dy & "-" & Mh & "-" & Yr & " " & Hr & ":" & Mn & ":" & Sc & """"
End Sub

Function Num(DateT)
  If Len(DateT) = 1 Then DateT = "0" & DateT
  Set Num = GetRef("Num")
End Function

Select Case Count
  Case 1 P = DC
  Case 2 P = """"" " & DM
  Case 3 P = """"" """" " & DA
  Case 4 P = DC & " " & DM
  Case 5 P = DC & " """" " & DA
  Case 6 P = """"" " & DM & " " & DA
  Case 7 P = DC & " " & DM & " " & DA
End Select

For Each F in Split(FSO.GetFile(List).OpenAsTextStream(1, -1).ReadAll, L)
  If FSO.FolderExists(F) Then
    F = Left(F, Len(F) - 1) : ForFile F, P
    If C = 4 Then : Set F = FSO.GetFolder(F) : ForFolder F, P : End If
  Else ForFile F, P : End If
Next : Set FSO = Nothing : Set WSH = Nothing : Set Shell = Nothing : WScript.Quit

Sub ForFolder(Fd, Par)
  For Each Fl In Fd.SubFolders : ForFile Fl, Par : ForFolder Fl, Par : Next
  For Each Fl In Fd.Files      : ForFile Fl, Par : Next
End Sub
Sub ForFile(FF, PP) : WSH.Run Nircmd & " setfilefoldertime """ & FF & """ " & PP, 0, True : End Sub

For Each F in Split(FSO.GetFile(List).OpenAsTextStream(1, -1).ReadAll, L)
  WSH.Run Nircmd & " setfilefoldertime """ & F & """ " & P
Next

WSH.Run Nircmd & " setfilefoldertime """ & List & """ " & P

 File = .Item(0) : List = .Item(1) : Count = .Item(2)

FileA = .Item(0) : File = .Item(1) : List = .Item(2) : Count = .Item(3) : Source = .Item(4)

If Source = 0 Then Source = InputBox("Enter Source File or Dir:" & vbNewLine &_
                   "1 - Source file in Target panel" & vbNewLine &_
                    "2 - Source file in Active panel", "Source", 1)
On Error Resume Next
If Source = 2 Then
  File = FileA
  ElseIf Source <> 1 Then WScript.Quit
End If

' Параметры: %V %T%M %WL <индекс замены> <индекс файла-источника>
' Индекс файла-источника принимает следующие значения:
' 1 - файл-источник - это выбранный файл пассивной панели
' 2 - файл-источник - это выбранный файл активной панели
' 0 - выдаётся запрос на указание файла-источника

Do Until Source = 1 Or Source = 2
  Source = InputBox("Допустимые значения ввода:" &L&L& "1  (если источник в активной панели)" &L&L&_
  "2  (если источник в пассивной панели)", "    Присвоение даты и времени выбранным элементам")
  If Trim(Source) = "" Then WScript.Quit
Loop

param50=""%p%n" "%t%m""

? %P%N %T%M

?%P%N %T%M

?%P%N %T%M

TOTALCMD#BAR#DATA
%ComSpec% /c "for /f "delims=" %i in
('type %WL') do "%%COMMANDER_PATH%%\Utils\touchdot.exe" -amxc -d %%date:~6%%-%%date:~3,2%%-%%date:~0,2%%T%%time%% "%%i""
timedate.cpl
Установить текущую дату и время для выбранных файлов

1

'============================ VBS =============================
' Присвоение файлу даты модификации другого файла
' Параметры: "<путь файла-источника>" "<путь файла-получателя>"
' Пример: %V %T%M
'==============================================================
With CreateObject("Shell.Application").NameSpace(0)
  .ParseName(WScript.Arguments(1)).ModifyDate =_
  .ParseName(WScript.Arguments(0)).ModifyDate
End With

'••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
' Изменение дат и времени выбранных файлов и папок одной панели на дату и время
' элемента другой панели с возможностью рекурсивной обработки содержимого папок

' Условие: необходим компонент TCScript.dll

' Параметры: %d <актив./пассив. панель: A/P> <индекс замены> <флаг рекурсии: 1>
' Выбор панели определяет, где будет находиться текущий объект-источник.
' Соответственно, в другой панели должны быть выбраны изменяемые объекты.

' Индекс замены принимает следующие значения:
' 1 - даты создания
' 2 - даты модификации
' 3 - даты последнего открытия
' 4 - даты создания и модификации
' 5 - даты создания и последнего открытия
' 6 - даты модификации и последнего открытия
' 7 - даты модификации, создания и последнего открытия

' Примеры параметров:  %d P 2   |  %d A 7   |  %d P 4 1
'••••••••••••••••••••••••••••••••••••••••••••••••••••••••• Автор: Flasher © •••

Option Explicit
Dim Title, C, Panel, Count, Rec, FSO, TCH, F, List, DC, DM, DA, D, T
With WSH.Arguments
  Title = " Изменение атрибутов": C = .Count: If C = 0 Then WSH.Quit
  Panel = .Item(1) : Count = .Item(2) : If C = 4 Then Rec = .Item(3)
End With : If Not IsNumeric(Count) Or (Count < 1 Or Count > 7) Then _
MsgBox "Недопустимый индекс замены!"&vbCr&vbCr&"Смотрите описание.",_
4144, Space(30) & "Ошибка", Title : WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCH = CreateObject("TCScript.Helper") : TCH.Pause = 0
Select Case Panel
  Case "A" F = TCH.GetSrcPath    & TCH.GetInfo("SN") : List = TCH.GetTrgSelectedFiles(1)
  Case "P" F = TCH.GetInfo("TP") & TCH.GetInfo("TN") : List = TCH.GetSrcSelectedFiles(1)
End Select : If F = "" Or Right(F, 1) = "\" Then WSH.Quit
If FSO.FileExists(F) Then Set F = FSO.GetFile(F) Else Set F = FSO.GetFolder(F)
If InStr("1457", Count) Then DC = "CDate(""" & F.DateCreated & """)"
If InStr("2467", Count) Then DM = ",""" & F.DateLastModified & """"
If InStr("3567", Count) Then DA = ",""" & F.DateLastAccessed & """"
If IsEmpty(DM) And Len(DA) Then DA = "," & DA
D = DC & DM & DA : Set F = Nothing
For Each F In List
  If FSO.FolderExists(F) Then
    FFile F : If Rec = 1 Then T = 1 : Set F = FSO.GetFolder(F) : FFolder F
  ElseIf FSO.FileExists(F) Then FFile F End If
Next
With CreateObject("WScript.Shell")
  If T Then .Popup "  Выполнено!", 2, Title & "      ", 4160 Else .SendKeys "^r"
End With

Sub FFolder(Fd)
  For Each Fl In Fd.Files : FFile Fl : Next
  Dim Fl : For Each Fl In Fd.SubFolders : FFile Fl : FFolder Fl : Next
End Sub : Sub FFile(I) : Execute "TCH.SetFileDateAtr CStr(I)," & D End Sub

For Each F in Split(FSO.GetFile(List).OpenAsTextStream(1, -1).ReadAll, L)
  If FSO.FolderExists(F) Then
    F = Left(F, Len(F) - 1) : ForFile F, P
    If C = 4 Then : Set F = FSO.GetFolder(F) : ForFolder F, P : End If
  Else ForFile F, P : End If
Next : Set FSO = Nothing : Set WSH = Nothing : Set Shell = Nothing : WScript.Quit

If FSO.FolderExists(List) Then
  ForFile List, P : If C = 4 Then Set List = FSO.GetFolder(List) : ForFolder List, P
Else ForFile List, P : End If