Gesucht: Programm zum automatischen Verkleinern von Bildern anhand bestimmter Kriterien

function Resize-Image(){
param(
    [parameter(mandatory=$true)][string]$imgPath,
    [string]$saveAs,
    [parameter(mandatory=$true)][int]$size,
    [ValidateRange(0,100)][int]$quality = 100
)
    Add-Type -AssemblyName System.Drawing
    
    if (!$saveAs){$saveAs = $imgPath}

    $ext = [System.IO.Path]::GetExtension($imgPath)
    if ($ext -match "bmp|jpg|jpeg|gif|tif|tiff|png"){  
        $img = [System.Drawing.Bitmap]::FromFile($imgPath)

        $percentWidth = [float]$size / [float]$img.Width
        $percentHeight = [float]$size / [float]$img.Height
        $percent = 1
        if ($percentHeight -lt $percentWidth){
            $percent = $percentHeight
        }else{
            $percent = $percentWidth
        }
        [int32]$newWidth = [int32]$img.Width * $percent
        [int32]$newHeight = [int32]$img.Height * $percent

        [System.Drawing.Image]$newImage = New-Object System.Drawing.Bitmap $newWidth,$newHeight
        [System.Drawing.Graphics]$graphics = [System.Drawing.Graphics]::FromImage($newImage)
        $graphics.InterpolationMode = [System.Drawing.Drawing2D.InterpolationMode]::HighQualityBicubic
        $graphics.Drawimage($img,0,0,$newWidth,$newHeight)
        $img.Dispose()

        # JPG Qalität festlegen
        [System.Drawing.Imaging.ImageCodecInfo]$jpgEncoder = [System.Drawing.Imaging.ImageCodecInfo]::GetImageDecoders() | ?{$_.FormatID -eq [System.Drawing.Imaging.ImageFormat]::jpeg.GUID} | select -First 1
        $myEncoder = [System.Drawing.Imaging.Encoder]::Quality
        $encoderParams = new-object System.Drawing.Imaging.EncoderParameters(1)
        $encoderParam = new-object System.Drawing.Imaging.EncoderParameter($myEncoder,85)
        $encoderParams.Param = $encoderParam
        # --------------------
        # Bild speichern
        $newImage.Save($saveAs,$jpgEncoder,$encoderParams)
        $newImage.Dispose()
    }
    
}
function Get-ImageSize(){
    param(
        [parameter(mandatory=$true)][string]$imgPath
    )
    Add-Type -AssemblyName System.Drawing
    $img = [System.Drawing.Bitmap]::FromFile($imgPath)
    $w = $img.Width; $h = $img.Height
    $img.Dispose()
    return @($w,$h)
}

# Ordner festlegen
$ordner = "E:\Bilder"  

$maxSize = 1920

# Dateien nach Kriterien filtern und in der Größe anpassen und speichern
dir $ordner -Filter *.jpg -recurse | %{
    $s = Get-ImageSize $_.Fullname
    if (($s -gt $maxSize -or $s[1] -gt $maxsize) -and $_.Length -gt 1.5MB){
        write-host "Verkleinere Bild '$($_.Fullname)'" -ForegroundColor Green  
        Resize-Image $_.Fullname -size $maxSize
    }
}