@echo off
Title www.ElHacker.net
 
 
 
 
 
REM By PiToLoKo
REM Visita: Foro.ElHacker.Net
 
 
 
 
 
REM Seteamos la ruta de trabajo
Set Ruta=C:\test
 
 
 
 
 
REM Creamos las listas de archivos...
 
Echo Archivos Borrados inferiores a 500 KB:>"%temp%\Borrados.txt"
echo+ >>"%temp%\Borrados.txt"
 
Echo Archivos No borrados inferiores a 1024 KB (1 MB):>"%temp%\NO Borrados.txt"
echo+ >>"%temp%\NO Borrados.txt"
 
 
 
 
 
REM Buscamos los archivos dentro de la ruta
 
PUSHD "%ruta%\"
 
For /F "tokens=*" %%a in ('dir /B /A-D "%ruta%"') do (
	Set archivo=%%a
	Set Bytes=%%~za
	Call :Carpeta
)
 
Goto :Fin
 
 
 
 
 
REM Comprobamos si el nombre del archivo es igual al de la ruta
 
:Carpeta
 
Dir ".." /B /A:D | find "%archivo:~-0,-4%" >NUL
 
If %ERRORLEVEL% EQU 0 (
	Call :Same__Name_Size
	Goto:eof
) ELSE (
	Call :Not_same_Name_Size
	Goto:eof
)
 
POPD
goto :eof
 
 
 
 
 
:Same__Name_Size
 
REM Si el archivo es menor a 500 KB, lo eliminamos de la ruta.
 
If %Bytes% LSS 512000 (
Del /Q /F "%ruta%\%archivo%"
	Echo %archivo%  -= %Bytes% bytes =- >>"%temp%\BORRADOS.txt"
	Goto:eof
) ELSE (
	Call :Mayor
	goto:eof
)
 
 
 
 
 
REM Si el archivo es mayor a 500 KB pero menor a 1024 KB, NO lo eliminamos y lo añadimos a la lista.
 
:Mayor
 
If %Bytes% LSS 1048576 (
	Echo %archivo%  -= %Bytes% bytes =- >>"%temp%\NO BORRADOS.txt"
	Goto:eof
) ELSE (
	goto:eof
)
 
 
 
 
 
:Not_same_Name_Size
 
REM Si el archivo es menor a 1024 KB, lo añadimos a la lista.
 
If %Bytes% LSS 1048576 (
	Echo %archivo%  -= %Bytes% bytes =- >>"%temp%\NO BORRADOS.txt"
	Goto:eof
) ELSE (
	goto:eof
)
 
 
 
 
 
REM Mostramos el resultado de la operación y borramos los archivos temporales.
 
:Fin
Echo Operaci¢n finalizada.
Echo.
echo.Pulse una tecla para mostrar el resultado...
pause >nul
cls
 
Type "%temp%\Borrados.txt" | MORE
echo+ & echo+ & echo+ & echo+
Type "%temp%\NO Borrados.txt" | MORE
 
Del /Q "%temp%\Borrados.txt";"%temp%\NO Borrados.txt"
echo+ & echo+ & echo+ & echo.Pulse una tecla para salir...
Pause >nul
Exit