PowerShell – Rename Pictures to Image Taken Date/Time with Dimensions

PictureRename.ps1

<#
    .SYNOPSIS
        Renames pictures.

    .DESCRIPTION
        The Rename-Pictures cmdlet to rename pictures to a format where the file creation time is first
        in the name in this format: . The idea is that

    .PARAMETER Path
        Specifies the path to the folder where image files are located. Default is current location (Get-Location).

    .EXAMPLE
        PS C:\> Rename-Pictures

        Description:
        Renames all the pictures in folder you are in.

    .EXAMPLE
        PS C:\> Rename-Pictures -Path C:\Folder\Pics\

        Description:
        Renames all the pictures in the given folder path.

    .NOTES
        Author: Magnus Ringkjøb
        E-mail: [email protected]
        Image Dimensions Added By David Kittell - Kittell.net
#>

Function Rename-Pictures
{
    Param (
        [Parameter(Mandatory=$FALSE)][string]$Path = (Get-Location),
        [Parameter(Mandatory=$FALSE)][string]$BackupFileName = '_backupdata.csv'
    )

    Begin
    {
        [reflection.assembly]::LoadFile("C:\Windows\Microsoft.NET\Framework\v4.0.30319\System.Drawing.dll")
        $Script:ErrorLogMsg = $Null
        $Script:CorrectPath = $Null
    }

    Process
    {
        # Workaround for correct path from user
        if ($Path.EndsWith('\\'))
        {
            $ImgsFound = Get-ChildItem ($Path + '*') -Include *.jpeg, *.png, *.gif, *.jpg, *.bmp, *.png | Select-Object -Property FullName, Name, BaseName, Extension
        }
        else
        {
            # Add Slash at the end, to get the logs inside the folder
            $Path += '\\'
            $ImgsFound = Get-ChildItem ($Path + '\\*') -Include *.jpeg, *.png, *.gif, *.jpg, *.bmp, *.png | Select-Object -Property FullName, Name, BaseName, Extension
        }

        # If any file was found
        If ($ImgsFound.Count -gt 0) {
            # Print the number of images found to the user
            Write-Host -Object ("# of pictures suitable for renaming in " + $Path + ": " + $ImgsFound.Count + "`n")

            # Array that takes in the old- and the new filename. This is used for saving a backup to .csv
            $BackupData = @()

            [string[]]$UsedNames = @()

            # Loops through the images found
            foreach ($Img in $ImgsFound)
            {
                # Gets image data
                $ImgData = New-Object System.Drawing.Bitmap($Img.FullName)

                try
                {
                    # Gets 'Date Taken' in bytes
                    [byte[]]$ImgBytes = $ImgData.GetPropertyItem(36867).Value
                }
                catch [System.Exception], [System.IO.IOException]
                {
                    [string]$ErrorMessage = (
                        (Get-Date).ToString('yyyyMMdd HH:mm:ss') + "`tERROR`tDid not change name for " + $Img.Name + ". Reason: " + $Error
                    )
                    $Script:ErrorLogMsg += $ErrorMessage + "`r`n"
                    Write-Host -ForegroundColor Red -Object $ErrorMessage

                    # Clears any error messages
                    $Error.Clear()

                    # No reason to continue. Move on to the next file
                    continue
                }

                # Gets the date and time from bytes
                [string]$dateString = [System.Text.Encoding]::ASCII.GetString($ImgBytes)
                # Formats the date to the desired format
                [string]$dateTaken = [datetime]::ParseExact($dateString,"yyyy:MM:dd HH:mm:ss`0",$Null).ToString('yyyy-MM-dd_HH.mm.ss')
                # The new file name for the image
                # [string]$NewFileName = $dateTaken + '-' + $Img.Name
                # $ImgDimensions = $ImgData.Width.ToString() + $("x") + $ImgData.Height.ToString()
                # [string]$NewFileName = $dateTaken + "_" + $ImgDimensions
                [string]$NewFileName = $dateTaken

                $ImgData.Dispose()

                try
                {
                    # Count occurrences
                    # Save original unprefixed name to array of used names
                    $UsedNames += $NewFileName

                    $UsedNamesCounts = $UsedNames | Group-Object -AsHashTable -AsString

                    If ($UsedNamesCounts[$NewFileName].Count -gt 1)
                    {
                      $NewFileName += '-' + ($UsedNamesCounts[$NewFileName].Count - 1)
                    }

                    # Rename
                    $NewFileName += [System.IO.Path]::GetExtension($Img.Name)
                    Rename-Item -NewName $NewFileName -Path $Img.FullName -ErrorAction Stop
                    Write-Host -Object ("Renamed " + $Img.Name + " to " + $NewFileName)
                }
                catch
                {
                    [string]$ErrorMessage = (
                        (Get-Date).ToString('yyyyMMdd HH:mm:ss') + "`tERROR`tDid not change name for "  + $Img.Name + ". Reason: " + $Error
                    )
                    $Script:ErrorLogMsg += $ErrorMessage + "`r`n"
                    Write-Host -ForegroundColor Red -Object $ErrorMessage

                    # Clears any previous error messages
                    $Error.Clear()

                    # No reason to continue. Move on to the next file
                    continue
                }

                # Collect data to be added to the backup file
                $BUData = New-Object -TypeName System.Object
                $BUData | Add-Member -MemberType NoteProperty -Name "OldName" -Value $Img.Name
                $BUData | Add-Member -MemberType NoteProperty -Name "NewName" -Value $NewFileName

                # Add data to backup collection
                $BackupData += $BUData
            } # foreach

            try
            {
                $BackupData | Export-Csv -NoTypeInformation -Path ($Path + $BackupFileName)
            }
            catch [System.Exception]
            {
                [string]$ErrorMessage = (
                    (Get-Date).ToString('yyyyMMdd HH:mm:ss') + "`tERROR`tCould not create "  + ($Path + $BackupFileName) + ". Reason: " + $Error
                )
                    $Script:ErrorLogMsg += $ErrorMessage + "`r`n"

                # Clears any error messages
                $Error.Clear()
            }
        } # if imgcount > 0
        else {
            Write-Host -Object ("Found 0 image files at " + $Path)
        }

        # If there was a problem during the run:
        # Print to file, and let user know
        if ($Script:ErrorLogMsg -ne $Null) {
            Out-File -FilePath ($Path + '_errors.log') -InputObject $ErrorLogMsg
            Write-Host -ForegroundColor Red -Object (
                "Errors were found. Please check " + $Path + "_errors.log"
            )
        }
    }

    End{}
}

Rename-Pictures $args[0]

Updated fork:

• adds trailing slash to $Path, so logs are saved in the target location
• removed milliseconds (increases chance of duplicate names)
• added a counter for duplicate names