PowerShellフォルダ内の画像ファイルを等幅のJPEGファイルに変換する

#
# フォルダ内の画像ファイルを等幅のJPEGファイルに変換する
#
# ファイル名:Change2JpegFixWidth.ps1
#
param(
    [string]
    $InputDir =  (Join-Path $env:USERPROFILE "Pictures\Input"),
    [string]
    $OutputDir =  (Join-Path $env:USERPROFILE "Pictures\Output"),
    [int]
    $FixWidth = 800
)

$ErrorActionPreference = "stop"

[void][Reflection.Assembly]::LoadWithPartialName("System.Drawing")

Function CangeToJpegFixWidth
{
    param(
        [string]
        $src, 
        [string]
        $dst, 
        [int]
        $width
    )
    
    $srcimg = [System.Drawing.Image]::FromFile([string]$src)


    $dstimg = New-Object System.Drawing.Bitmap([int]$width, [int](($srcimg.Height * $width) / $srcimg.Width))

    $gr = [System.Drawing.Graphics]::FromImage($dstimg)
    $gr.DrawImage($srcimg, (New-Object System.Drawing.Rectangle(0, 0, $dstimg.Width, $dstimg.Height)))

    $reslt = $dstimg.Save($dst, [System.Drawing.Imaging.ImageFormat]::Jpeg)

    $gr.Dispose()
    $srcimg.Dispose()
    $dstimg.Dispose()
}

$count = 0
Get-ChildItem -LiteralPath $InputDir -Recurse | ? {
    -not ($_.PSIsContainer)
} | % {
    $in = $_.FullName
    $out = Join-Path $OutputDir ($_.BaseName + ".jpg")


    $count = $count + 1
    
    echo "${count} ${in} ${out}"
    CangeToJpegFixWidth $in $out $FixWidth
}