Supprimer les photos en portrait

Je n’aime pas le photos prise en portrait. A chacun ces goûts.
Voici le moyen que j’ai trouver pour toutes les supprimer d’un coup.

$image = New-Object -ComObject Wia.ImageFile
Get-ChildItem -Recurse -Include *.jpg -Path "..\images" | foreach {
$file = $_.fullname
$image.LoadFile($file)
if ( $image.Width -gt $image.Height) {
Remove-Item -Path $file -Force
}
}

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *