Delete file out folder

Question

I have a drop folder that duplicates it content to another folder
How would I go about deleting or purging the contents in the drop folder once has transfered?
Thanks!

Answer 1

If there is a problem with your move statement, removing the try statement will show the error (you are suppressing error messages). I am testing with the following script, which appears to work for me:
<pre style="
font-family: Monaco, 'Courier New', Courier, monospace;
font-size: 10px;
font-weight: normal;
margin: 0px;
padding: 5px;
border: 1px solid #000000;
width: 720px; height: 340px;
color: #000000;
background-color: #B5FF6C;
overflow: auto;"
title="this text can be pasted into the Script Editor">
property choiceTitles : {¬
"User 1", ¬
"User 2", ¬
"User 3"}
property chosenRecipients : {¬
{"User1 <[email protected]>", "User3 <User3@User3>"}, ¬
{"User2 <User2@sUser2>", "User3 <User3@sUser3>"}, ¬
"User3 <User3@User3>"}
property theSender : "MyEmail <[email protected]>"
property messageText : " type body copy here "
property commonName : "Files"
on run -- application double-clicked or run from the Script Editor
doStuff for (choose file with multiple selections allowed)
end run
on open theFiles -- items dropped onto the application
doStuff for theFiles
end open
on adding folder items to someFolder after receiving addedItems -- folder action
doStuff for addedItems
end adding folder items to
to doStuff for someFiles
create a new Mail message for each file in someFiles
parameters - someFiles [list]: a list of files to do stuff with
returns nothing
try
repeat with anItem in someFiles
set recipientAddress to (matchChoice from choiceTitles into chosenRecipients)
if the result is false then error number -128 -- cancel
tell application "Finder" to set theSubject to the name of anItem
tell application "Mail"
set newmessage to make new outgoing message with properties {content:(messageText & return & return)}
tell newmessage
set visible to true
set sender to theSender
set subject to theSubject
-- make new attachment with properties {file name:anItem} at after the last paragraph
repeat with someRecipient in recipientAddress -- handle multiple recipients
if class of someRecipient is list then -- handle recipient sub lists
repeat with aRecipient in someRecipient
make new to recipient at end of to recipients with properties {name:commonName, address:aRecipient}
end repeat
else
make new to recipient at end of to recipients with properties {name:commonName, address:someRecipient}
end if
end repeat
end tell
-- send newMessage
end tell
end repeat
tell application "Finder" to move someFiles to (path to desktop)
on error errorMessage number errorNumber -- oops
log errorMessage
-- display alert "Error " & errorNumber message errorMessage
end try
end doStuff
to matchChoice from sourceList into objectList
displays a dialog using the sourceList, then matches the item(s) chosen with the same item(s) in the objectList
if there are duplicate items in the sourceList, only the first matching item from the objectList is used
parameters - sourceList [list]: a list of text items to choose from
objectList [list]: a list of objects
returns [list]: a list of the chosen objects, or false if error/cancel
set chosenItems to {}
try
if (count sourceList) is greater than (count objectList) then error "matchChoice: sourceList is larger than objectList"
set theChoices to choose from list sourceList with multiple selections allowed
if the result is false then error "matchChoice : dialog cancelled" -- cancel
repeat with anItem in theChoices
set anItem to the contents of anItem
repeat with theIndex from 1 to (count of sourceList)
if the contents of (item theIndex of sourceList) is anItem then
set the end of chosenItems to item theIndex of objectList
exit repeat
end if
end repeat
end repeat
on error errorMessage
log errorMessage
-- error errorMessage -- pass it on
return false
end try
return chosenItems
end matchChoice
</pre>