Любой язык - [решено] Сжать каждый файл в архив и оставить только те что уменьшились в размере

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Любой язык - [решено] Сжать каждый файл в архив и оставить только те что уменьшились в размере

necros2k7

Новый участник

Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать

Привет. Вот такой костыль сделал из 2х батников. 1 вызывает другой, если подскажете как сделать это в 1м батнике буду благодарен + как оставить только архивы после сжатия размером меньше чем оригинал, язык реализации неважен.

1.bat -
2 *.db

2.bat -
@echo off
for /R %%i in (%1) do "с:\soft\7z\7z" a -mmt31 -t7z -m0=lzma2 -mx=9 -mfb=273 -md=1536m -ms=on "%%i.7z" "%%i"

Отправлено: 05:57, 05-01-2021

DJ Mogarych

fascinating rhythm

Сообщения: 6705
Благодарности: 1576

Профиль | Отправить PM | Цитировать

Powershell:

Код:

$folder = "C:\temp\test"
$dbs = dir "$folder\*.db"

foreach ($db in $dbs) {
& 'с:\soft\7z\7z.exe' a -mmt31 -t7z -m0=lzma2 -mx=9 -mfb=273 -md=1536m -ms=on "$folder\$($db.basename).7z" "$($db.fullname)" > $null
    if ((Get-Item "$folder\$($db.basename).7z").Length -gt $db.Length) {
    del "$folder\$($db.basename).7z" -Force -Confirm:$false
    }
}

-------
Powershell 7.x | Powershell 5.1 | ffmpeg (docs)

Это сообщение посчитали полезным следующие участники:

Iska, necros2k7, YuS_2

Отправлено: 09:22, 05-01-2021 | #2