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