Hmm - looks like I found what I need;
tell application "Finder"
repeat with this_number from 65 to 90
set this_letter to ASCII character this_number
set new_folder to make folder at window 1 with properties {name:this_letter}
move (every file of target of window 1 whose name begins with this_letter) to new_folder
end repeat
end tell