Example Rename Script

This is an example of a rename script that adds an image file's resolution to its filename.

You would use this script through the Advanced Rename dialog (turn on the Script mode option to display the script editor). You could also embed the script in a button.

' Set the script type to VBScript to use this script
Option Explicit

' main Rename entry point. The method is passed a GetNewNameData object for each file

Function OnGetNewName ( ByRef GetNewNameData )

    Dim item, meta 

    ' Get the provided Item object from the GetNewNameData object's item property
    Set item = GetNewNameData.item

   ' Request its metadata. This will return a Metadata object.
    Set meta = item.metadata

   ' If the primary type of the meta data is "image" then we know it's an image file
    If meta = "image" Then

       ' Build and return the new name
        ' This is made up of
        '     - the "name stem" (the original filename minus the file extension)
        '     - the image width and height, obtained from the ImageMeta object (which comes from the Metadata.image property)
        '     - the original filename extension
        OnGetNewName = item.name_stem & " (" & meta.image.picwidth & "x" & meta.image.picheight & ")" & item.ext

Else

        ' The item wasn't an image, so return True to skip it
        OnGetNewName = True

    End If

End Function