'=======================================================
' Копирование выделенных файлов\папок в текущий каталог
'   с добавлением текущих даты и времени в имя:
' {Имя}_YYYYMMDDhhmmss.{Расширение}

' Параметры вызова из TC:
' %L
'=======================================================
Option Explicit
If WScript.Arguments.Count = 0 Then
  MsgBox "Не заданы параметры!", vbOKOnly + vbCritical, "Копирование"
  WScript.Quit
End If
Dim FSO, OTF, List, F
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1, False)
List = OTF.ReadAll
OTF.Close
Set OTF = Nothing

For Each F In Split(List, vbNewLine)
  If FSO.FileExists(F) Then
    FSO.CopyFile F, FSO.GetFile(F).ParentFolder.Path & "\" &_
                    FSO.GetBaseName(F) & "_" & DateTime & "." &_
                    FSO.GetExtensionName(F)
  End If
  If FSO.FolderExists(F) Then
    FSO.CopyFolder Left(F, Len(F) - 1), Left(F, Len(F) - 1) & "_" & DateTime
  End If
Next
Set FSO = Nothing
WScript.Quit

Function DateTime
  Dim d, t
  d = Date
  t = Time
  DateTime = Year(d) & Right(0 & Month(d), 2) & Right(0 & Day(d), 2) &_
             Replace(t, ":", "")
End Function