フォルダ作成移動



tell application "Finder"
set chufolder to choose folder
set chufolder_uxpath to POSIX path of chufolder

end tell
set file_list to do shell script "ls -1 " & (quoted form of chufolder_uxpath) & " | sort | cut -d _ -f 1 | uniq "

set file_list_count to count every paragraph of file_list

repeat with i from 1 to file_list_count

set list_i to paragraph i of file_list

tell application "Finder"
set mv_folder to make new folder at chufolder with properties {name:list_i}

set thefile to (every file of chufolder whose ((name contains list_i)))

move thefile to mv_folder

end tell

end repeat