概要

フォルダに包まれたファイル
包まれてない素のファイル

が混在したフォルダを整理しようかなと思ったけど
いちいち新規フォルダ作成→リネーム→ファイル投げ込む　とやるのが面倒になり
懐かしのdropletを作成してみた次第。

AppleScript、まとまった情報が残ってないので残しときます。

作り方

/Applications/Utilities/Script\ Editor.appを起動して、
適当に書いて、
アプリケーションとして保存、
とするとドロップレットのできあがり。

やること

ドロップされたファイル（複数）について
拡張子を取り除いた名前で新規フォルダを作成し
そこにファイルを移動

当然ながら、同名のファイル／フォルダは存在できないので、必要があれば一時的なファイル名で作って逃げる

ソース


on open objects
	tell application "Finder"
		repeat with obj in objects
			
			-- get name of folder to filename without extension, or same as filename
			set AppleScript's text item delimiters to "."
			set nameElements to every text item of (name of obj as string)
			set lastElementIndex to count nameElements
			if lastElementIndex > 1 then
				set folderName to (items 1 thru (lastElementIndex - 1) of nameElements) as string
			else
				set folderName to (name of obj as string)
			end if
			
			-- check same name exists
			set folderPath to ((folder of obj as string) & folderName)
			if not (exists folderPath) then
				
				-- create folder
				set newFol to make new folder at (folder of obj) with properties {name:folderName}
				
				-- move to it
				move obj to newFol
				
			else
				
				-- generate tmp foldername
				set tmpName to ""
				repeat 21 times
					set tmpName to tmpName & some item of "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
				end repeat
				
				
				-- create folder
				set newFol to make new folder at (folder of obj) with properties {name:tmpName}
				
				-- move to it
				move obj to newFol
				
				-- rename folder
				set (name of newFol) to folderName
			end if
			
			
		end repeat
	end tell
end open

on run
	display alert "Dropped would be embedded with folder"
end run