I've included my suggestion below. I tested the script on Monterey and it worked as expected.

Applescript:

set theExtensions to {"png", "tiff"} -- edit as desired but digital photos may not sort correctly
set theFolder to (choose folder) as text
set landscapeFolder to (theFolder & "Landscape:")
set portraitFolder to (theFolder & "Portrait:")

tell application "Finder"
   if not (exists folder portraitFolder) then make new folder in folder theFolder with properties {name:"Portrait"}
   if not (exists folder landscapeFolder) then make new folder in folder theFolder with properties {name:"Landscape"}
   set fileList to (every file in folder theFolder whose name extension is in theExtensions) as alias list
end tell

tell application "Image Events"
   launch
   repeat with theFile in fileList
       set theImage to open theFile
       set {Horiz, Vert} to dimensions of theImage
       close theImage
       if Horiz is greater than Vert then
           my moveFile(theFile, landscapeFolder)
       else
           my moveFile(theFile, portraitFolder)
       end if
   end repeat
end tell

on moveFile(theFile, theFolder)
   try
       tell application "Finder" to move theFile to folder theFolder
   on error
       tell application "Finder" to set fileName to name of theFile
       display alert "A file already exists in the target folder" message fileName buttons {"Skip"}
   end try
end moveFile

Last edited by peavine (2022-06-06 10:06:57 am)