Sortering av filer beroende på filnamn

Tänkte försöka lära mig lite AppleScript, och som övning tänkte jag göra ett script som sorterar filer som droppas på det beroende på namn, t.ex. om man har massa filer med namn i nummerordning (100-199, 200-299 osv) sorteras de upp i mappar med namn 1, 2 osv. Att det blev just det jag tänkte prova beror på att det efterfrågades på en mailinglista.

Jag har slängt ihop ett test, men får det inte att funka, tänkte om någon kan tipsa lite om vad som kan vara fel.
Jag har ingen bok att gå efter (än), utan kollar i gamla nedladdade script samt på webben...

on open these_items
	tell application "Finder"
		display dialog "Files beginning with:" default answer 1 buttons {"OK"} ¬
default button 1
		if the button returned of the result is "OK" then
			set myNumber to the text returned of the result
		end if
	end tell
	process_item(these_items)
end open

on process_item(these_items)
	set my_list to every item of these_items whose name begins with myNumber
	set new_folder to myNumber as string
	tell application "Finder"
		if (folder "numberFolder" of desktop exists) is not true then
			set the new_folder to make new folder at desktop ¬
				with properties {name:"numberFolder"}
			move every item of my_list to folder "numberFolder" of desktop
			set the name of folder "numberFolder" of desktop to new_folder
		else
			beep
		end if
	end tell
end process_item

Jag gjorde ett enkelt script igår för att skicka mail och bifoga filer, utan att använda något mailprogram utan med den inbyggda funktionen för det, lite kul... Kan lägga upp om någon är intresserad...

Ok, kommer här.
Kräver XMail Scripting Addition, http://www.osaxen.com/xmail.html

(* Ett AppleScript för att skicka mail med bilagor, gjort för att testa XMail ScriptingAddition, http://www.osaxen.com/xmail.html
///Magnus Krantz, 2003
*)

set smtp_server to "your.smtpserver.se" as string

tell application "Finder"
	display dialog "Send mail to:" default answer "@" buttons {"Enter"} default button 1
	if the button returned of the result is "Enter" then
		set mail_recipent to the text returned of the result
	end if
	display dialog "From:" default answer "@" buttons {"Enter"} default button 1
	if the button returned of the result is "Enter" then
		set mail_from to the text returned of the result
	end if
	display dialog "Subject:" default answer "Subject" buttons {"Enter"} default button 1
	if the button returned of the result is "Enter" then
		set mail_subject to the text returned of the result
	end if
	display dialog "Body:" default answer "Body" buttons {"Enter"} default button 1
	if the button returned of the result is "Enter" then
		set mail_body to the text returned of the result
	end if
	
	choose file with prompt "Pick a file to attach"
	set myFile to the result
	send mail to mail_recipent from mail_from subject mail_subject body mail_body SMTP server smtp_server attachments myFile
end tell