Deleting pictures based on dimensions with PowerShell

Question

I would like to delete all VERTICAL and SMALL pictures from a certain folder.

I have a folder that I do not want the vertical pictures or pictures with dimensions less than 600 x 600 pixels. I believe that PowerShell is the best thing to use since I cannot get Python to work on my computer.

I am doing this because I do not want to manually delete the vertical/small pictures from my folder each day. (It gets new ones every day)

Any help would be greatly appreciated!!

Here is my code :

cd C:\Users\Jack\Desktop\Test

$c = 5
Function Get-FileMetaData {

    Param([string[]]$folder)
    foreach($sFolder in $folder) {
        $a = 0
        $b = 1

        $objShell = New-Object -ComObject Shell.Application
        $objFolder = $objShell.namespace($sFolder)

        foreach ($File in $objFolder.items()) {

            $FileMetaData = New-Object PSOBJECT
            for ($a ; $a -le 266; $a++) {
                if($objFolder.getDetailsOf($File, $a)) {

                    $hash += @{$($objFolder.getDetailsOf($objFolder.items, $a)) =
                    $($objFolder.getDetailsOf($File, $a)) }
                    $FileMetaData | Add-Member $hash

                    if ($($objFolder.getDetailsOf($objFolder.items, $a)) -eq "Height") {
                        Write-Host $($objFolder.getDetailsOf($objFolder.items, $a)) =====
                        $($objFolder.getDetailsOf($File, $a))
                    }

                    if ($($objFolder.getDetailsOf($objFolder.items, $a)) -eq "Width") {
                        Write-Host $($objFolder.getDetailsOf($objFolder.items, $a)) =====
                        $($objFolder.getDetailsOf($File, $a))
                    }

                    if ($($objFolder.getDetailsOf($objFolder.items, $a)) -eq "Name") {
                        Write-Host $($objFolder.getDetailsOf($objFolder.items, $a)) =====
                        $($objFolder.getDetailsOf($File, $a))
                    }

                    $b++
                    $hash.clear()

                } #end if
            } #end for
        Write-Host $a
        $a=0
        $FileMetaData
        } #end foreach $file
    $c++
    Write-Host c = $c
    } #end foreach $sfolder
} #end Get-FileMetaData

Write-Host c = $c

$h = Get-FileMetaData C:\Users\Jack\Desktop\Test | select Height
$w = Get-FileMetaData C:\Users\Jack\Desktop\Test | select Width
$n = Get-FileMetaData C:\Users\Jack\Desktop\Test | select Name

$h
Write-Host w = $w
Write-Host name = $n

$SpecChars = '!', "{", "}", '"', '£', '$', '%', '&', '^', '*', '(', ')', '@', '=', '+', '¬', '`', '\', '<', '>', '?', '/', ':', ';', '#', '~', "'", '-', "Name", "N", "a", "m", "e", ' '
$remspecchars = [string]::join('|', ($SpecChars | % {[regex]::escape($_)}))


if (($h) -replace '\D+(\d+)','$1' -gt ($w) -replace '\D+(\d+)','$1') {

        Write-Host "VERTICAL"

        Write-Host name = $n

        $d = $n -replace $remspecchars, ""
        $d.split()
        Write-Host $d
        $tally = 0
        while($tally -ne $d.Count) {
            del $d[$tally]
            $tally++
        }


        $x = $host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")
    }

Write-Host "Finished"

Answer 1

try this

$folder = 'C:\temp\Pictures\'

$image = New-Object -ComObject Wia.ImageFile

$pictures = Get-ChildItem $folder *.jpg | ForEach-Object {
    $image.LoadFile($_.fullname)
    $size = $image.Width.ToString() + 'x' + $image.Height.ToString()

    $orientation = $image.Properties | ? {$_.name -eq 'Orientation'} | % {$_.value}
    if ($orientation -eq 6) {
        $rotated = $true
    } else {
        $rotated = $false
    }

    $heightGtWidth = if ([int]$image.Height.ToString() -gt [int]$image.Width.ToString()) {
        $true
    } else {
        $false
    }

    [pscustomobject]@{
        Fullname = $_.FullName
        Size = $size
        Rotated = $rotated
        HeightGtWidth = $heightGtWidth
    }
}

$pictures