Total Commander

Код: Выделить всё

@echo off
title copy_over_name_by_size
if -%1==- echo Parameters: %%WL %%T & pause & goto :EOF
set tmpsetfile="%temp%\~$tmpsetfile$~.tmp"
for /f "usebackq delims=" %%f in (`type %1`) do call :copy_find_same "%%f" %2
del %tmpsetfile%
pause
goto :EOF

:copy_find_same
dir /b "%~2\%~n1.*" 1>%tmpsetfile% 2>nul
if errorlevel 1 call :copy_do %1 "%~2\%~nx1" & goto :EOF
set /p samenametarget=<%tmpsetfile%
call :copy_check_size %1 "%~2\%~nx1" "%~2\%samenametarget%"
goto :EOF

:copy_check_size
if %~z3 LEQ %~z1 goto :EOF
attrib -r %3
del %3

:copy_do
echo %~nx1
copy %1 %2
goto :EOF

Код: Выделить всё

:copy_check_size
if %~z3 LEQ %~z1 goto :EOF
attrib -r %3
md "%~dp3\deleted" 2>nul
echo - %~nx3
move %3 "%~dp3\deleted"

Код: Выделить всё

'=============================================================================
' Замена в получателе на меньшие по размеру выбранные файлы
' или файлы из аналогичной структуры выбранных каталогов без учёта расширения
' с перемещением бОльших файлов из получателя в корзину

' Условие: путь запуска пустой
' Параметры: %WL "<Путь получателя>"
'=============================================================================
With WScript.Arguments
  If .Count = 0 Then WScript.Quit
  List = .Item(0) : Target = .Item(1)
End With : If Right(Target, 1) <> "" Then Target = Target & ""

Set SHA = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
LDir = Len(CreateObject("WScript.Shell").CurrentDirectory) + 2
Set Basket = SHA.Namespace(&Ha&) : Set Items = SHA.NameSpace(Target).Items

For Each F in Split(FSO.GetFile(List).OpenAsTextStream(1,-1).ReadAll, vbNewLine)
  If Trim(F) > vbNullString Then
    If FSO.FolderExists(F) Then ForFolder FSO.GetFolder(F) Else ForFile F, Items, Target
  End If
Next : Set Items = Nothing : Set Basket = Nothing : Set FSO = Nothing : Set SHA = Nothing

Sub ForFolder(Folder)
  For Each Fl In Folder.SubFolders : ForFolder Fl : Next
  TF = Target & Mid(Folder, LDir) & ""
  If FSO.FolderExists(TF) Then
    Set Itms = SHA.NameSpace(TF).Items
    For Each Fl In Folder.Files : ForFile Fl, Itms, TF : Next
  End If
End Sub

Sub ForFile(File, Elems, T)
  Elems.Filter 192, FSO.GetBaseName(File) & ".*"
  If Elems.Count = 1 Then
    Set I = Elems.Item(0)
    If FSO.GetFile(File).Size < I.Size Then
      Basket.MoveHere I, 24 : FSO.MoveFile File, T
    End If
  End If
End Sub