>>509
Finder最前面ウィンドウのフォルダ内を100MB毎にフォルダ「_____1」「_____2」...に小分けするAppleScript

set maaxSize to 100 * 1000 * 1000
tell application "Finder"
set targetFolder to target of front window
set targetItemList to (every item in targetFolder) as alias list
set tempList to targetItemList
set folderNum to 0
repeat while true
set subdivList to {}
set totalSize to 0
set carryOverList to {}
repeat with aAlias in tempList
set aPhysSize to physical size of aAlias
if totalSize + aPhysSize > maaxSize then
set end of carryOverList to contents of aAlias
else
set end of subdivList to contents of aAlias
set totalSize to totalSize + aPhysSize
end if
end repeat
set folderNum to folderNum + 1
set aFolderName to "_____" & (folderNum as text)
set newFolder to make new folder with properties {name:aFolderName} at targetFolder
move subdivList to newFolder
if (length of carryOverList) is 0 then exit repeat
set tempList to carryOverList
end repeat
end tell