File Move and Rename Workflow and/or Script

Question

This seems to be a simple workflow to create, but it isn't working for me. I want a workflow and/or script that will move screenshots from my desktop and place them into a folder. Secondly, I want these images to be renamed from "Picture #" to "Screenshot #" when placed in the folder. I also want future images placed in this folder to be named sequentially without any problems. For instance, if Screenshot 1, Screenshot 2, and Screenshot 3 are present in the folder after the workflow is ran once, the next file should be named Screenshot 4 when the workflow is ran again. Can anyone offer any assistance in this matter? I would greatly appreciate it.

Answer 1

If all you are doing is renaming and moving screenshots, then a regular AppleScript should do. Copy and paste the following script into the Script Editor and save as an application (uncheck the Startup Screen option). When it is first run it will ask for the destination folder, but after that it will use the same folder (until the script is recompiled, anyway).
<pre style="
font-family: Monaco, 'Courier New', Courier, monospace;
font-size: 10px;
margin: 0px;
padding: 5px;
border: 1px solid #000000;
width: 720px; height: 340px;
color: #000000;
background-color: #FFDDFF;
overflow: auto;"
title="this text can be pasted into the Script Editor">
-- rename and move screenshots from the desktop to the specified folder
property ScreenshotFolder : (path to desktop) -- the default folder where the screenshots are created
property ScreenshotExtension : ".png" -- the default screenshot extension
property DestinationFolder : missing value -- the folder to move to
on run
if DestinationFolder is missing value then set DestinationFolder to (choose folder)
tell application "Finder" to get files of ScreenshotFolder whose name begins with "Picture " -- get screenshots
repeat with AnItem in the result -- do stuff with each item
GetUniqueName for ("Screenshot" & ScreenshotExtension) from DestinationFolder
tell application "Finder"
set the name of AnItem to the result -- rename
move (ScreenshotFolder as text) & the result to DestinationFolder -- move
end tell
end repeat
end run
to GetUniqueName for SomeName from SomeFolder
check if SomeName exists in SomeFolder, creating a new unique name if needed
parameters - SomeName [text]: a name.extension to check for
SomeFolder [mixed]: a folder to check
returns [text]: a unique name
set {Counter, Divider} to {"01", " "}
set Here to -(offset of "." in ((reverse of text items of SomeName) as text)) - 1
set TheName to text 1 thru Here of SomeName
if Here is -1 then -- no extension
set TheExtension to ""
else
set TheExtension to text (Here + 1) thru -1 of SomeName
end if
set NewName to TheName & Divider & Counter & TheExtension -- always add a suffix
tell application "System Events" to tell (get name of items of folder (SomeFolder as text))
repeat while it contains NewName
set Counter to text 2 thru -1 of ((100 + Counter + 1) as text) -- increment suffix with leading zero
set NewName to TheName & Divider & Counter & TheExtension
end repeat
end tell
return NewName
end GetUniqueName
</pre>
I added a leading zero to the number suffix so that the items sort properly. Note that if one of the renamed items is removed, a new screenshot will take it's place (the suffix starts at the beginning each time). If this isn't desired, the script can be tweaked to remember the last suffix number.
HTH