[root221]

Код:

@Echo off
set Size=66
set Files=C:\help\*.*
rem Если размер должен быть равным или меньшим Size, то EQU заменить на LEQ
for %%L in (%Files%) do if /i %%~zL EQU %Size% del /f "%%L"

[Iska]

Сторонние программы не хочу использовать, нужно именно bat. »

Как насчёт скрипта VBScript?

Код:

Option Explicit

Dim objFSO
Dim strFolder
Dim objFile
Dim objDictionary
Dim elem


If WScript.Arguments.Count = 1 Then
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	strFolder = WScript.Arguments.Item(0)
	
	If objFSO.FolderExists(strFolder) Then
		Set objDictionary = WScript.CreateObject("Scripting.Dictionary")
		
		For Each objFile In objFSO.GetFolder(strFolder).Files
			If objDictionary.Exists(objFile.Size) Then
				If objDictionary.Item(objFile.Size) <> "" Then
					objFSO.DeleteFile objDictionary.Item(objFile.Size), True
					objDictionary.Item(objFile.Size) = ""
				End If
				
				objFSO.DeleteFile objFile.Path, True
			Else
				objDictionary.Add objFile.Size, objFile.Path
			End If
		Next
		
		objDictionary.RemoveAll
		
		Set objDictionary = Nothing
	Else
		WScript.Echo "Folder [" & strFolder & "] not found."
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <folder>"
End If

WScript.Quit 0

Путь к папке указываем аргументом скрипта.

[Iska]

PowerShell:

Код:

param (
    [string]$Folder = "E:\Песочница\0061\*"
)
Get-ChildItem -Path $Folder | `
    Where-Object -FilterScript { -not $_.PSIsContainer } | `
        Group-Object -Property Length | `
            Where-Object -FilterScript { $_.Count -gt 1 } | `
                ForEach-Object -Process {
                    Remove-Item $_.Group
                }

[Arsenik77]

root221, мне надо чтоб файлы сравнивались между собой (по размеру), а не по конкретному размеру.
Я, в скриптах нуль.
Iska, скрипт полностью удаляет все файлы в папке.

[Foreigner]

Arsenik77,
Еще вариант:

Код:

@echo off
setlocal enabledelayedexpansion

pushd "c:\test" || goto:eof

for /f "tokens=*" %%i in ('dir /b /a-d') do call:1 "%%i"
for /f "tokens=2 delims==" %%i in ('set todel_') do echo del %%i %%~zi

popd
goto:eof

:1                                                     
if not defined file_%~z1 (

    set "file_%~z1=%1"

) else (

    echo del !file_%~z1! %~z1
    set "file_%~z1=%1"
    set "todel_%~z1=%1"

)

То что красным удалишь после проверки, зеленым исправишь на своё

[Arsenik77]

Foreigner, не работает, написал "Непредвиденное появление: .jpg" (сравниваю jpg)

[megaloman]

Задача не очень четко поставлена. Вот решение, удаляем все одинаковые по размеру файлы.

Код:

@Echo Off

Set Otkuda=D:\Delete
Set S1=-1

FOR /F "usebackq delims=" %%f IN (`Dir /B /A:-D /O:SN "%Otkuda%\"`) DO Call :DelSize "%Otkuda%\%%f" 
GoTo :Eof

:DelSize
Set S2=%~z1

If %S1% NEQ %S2% (
   Set S1=%S2%
   Set N1=%1
) Else (
   Del %1
   If Exist %N1% Del %N1%
)

Если надо по одному файлу из тех, у которых размер одинаков, оставить, то строку

If Exist %N1% Del %N1%

следует удалить.

[ferget]

"Непредвиденное появление: .jpg" (сравниваю jpg) »

вы так одинаковые изображения хотите удалить?

[Foreigner]

Arsenik77,

Мой батник удаляет все одинаковые по размеру файлы, независимо от расширения. Если есть например три файла размером 123 и семь файлов размером 321, то он их всех удалит, но оставит файл размером 124, т.к. он один такого размера. В батнике надо указать только папку, в которой сравнивать.

Добрый день, нужен батник который удалял одинаковые по размеру файлы в одной папке. »