「テキストエディットで一番上にあるウインドウのテキストの各行」を名前とするフォルダを「Finderで一番上にあるウインドウ」に作るアップルスクリプトです(長いっ)。
スクリプトエディタにコピー&ペーストして実行してください。
※フォルダ名が重複するとエラーになります。
※フォルダ名が半角のコロン(:)を含んでいてもエラーになります。
※フォルダ名が長過ぎてもエラーになります。
※フォルダ名に半角のスラッシュ(/)を使う事はできますが、OS Xでは推奨されていません。
tell application "TextEdit"
set myText to text of document 1
end tell
tell application "Finder"
activate
display dialog "「" & (paragraph 1 of myText) & "」他、計 " & (number of paragraphs of myText as text) & " 個のフォルダを「" & name of Finder window 1 & "」に作成します。よろしいですか?"
repeat with myParagraph in paragraphs of myText
try
if number of characters of myParagraph is not 0 then make new folder at Finder window 1 with properties {name:myParagraph}
on error errorMessage
display dialog "フォルダ「" & myParagraph & "」は何らかの理由で作成できませんでした。"
end try
end repeat
end tell