–Initialize variables
set aList of aRef to {}
set bList of aRef to {}
set cList of aRef to {}
set dList of aRef to {}

set a to choose folder with prompt "Choose check Folder"

tell application "Finder"
　　tell folder a
　　　　set aList of aRef to name of every file
　　end tell
end tell

–make pure file name list(without extension) to cList
repeat with i in aList of aRef
　　set j to contents of i
　　set jj to retFileNameWithoutExt(j) of me
　　
　　if jj is in bList of aRef then
　　　　–duplicated file name & does not exist in cList
　　　　if jj is not in cList of aRef then
　　　　　　set the end of cList of aRef to jj
　　　　end if
　　　　
　　　　set tmpName to jj & "."
　　　　
　　　　tell application "Finder"
　　　　　　tell folder a
　　　　　　　　–set dList of aRef to dList of aRef & (name of every file whose name starts with tmpName)
　　　　　　　　set the end of dList of aRef to (name of every file whose name starts with tmpName)
　　　　　　end tell
　　　　end tell
　　　　
　　end if
　　
　　set the end of bList of aRef to jj
end repeat

–Remove duplicates from List
set aRes to removeDuplicates(dList of aRef) of me

–> {{"D120_a.jpg", "D120_a.png"}, {"D120_c.gif", "D120_c.jpg", "D120_c.png", "D120_c.txt"}}

–Remove Duplicated Item from List
on removeDuplicates(aList)
　　set newList to {}
　　repeat with i from 1 to (length of aList)
　　　　set anItem to item 1 of aList
　　　　set aList to rest of aList
　　　　if {anItem} is not in aList then set end of newList to anItem
　　end repeat
　　return newList
end removeDuplicates

–delete extension from file name
on retFileNameWithoutExt(fileNameStr)
　　set fLen to length of fileNameStr
　　set revText to (reverse of (characters of fileNameStr)) as string –make reversed string
　　set anOffset to offset of "." in revText
　　set fRes to text 1 thru (fLen - anOffset) of fileNameStr
　　return fRes
end retFileNameWithoutExt

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–home:Music:iTunes:Mobile Applicationsフォルダ内のipaファイルの一覧を取得する
try
　　tell application “Finder”
　　　　tell folder mFolStr
　　　　　　set appList to (every file whose name ends with “.ipa”) as alias list
　　　　end tell
　　end tell
on error
　　display dialog “Mobile Applicationsフォルダが存在しないか、Mobileアプリが存在しません。” buttons {“OK”} default button 1 with icon 1
　　return
end try

–ipaファイルを処理するループ
set appProcTmp to choose folder with prompt “iOSアプリケーションを展開する作業フォルダを指定”

set aCount to 1 –フォルダ名のカウンタ

repeat with i in appList
　　–ipaからzipにリネーム
　　set j to contents of i
　　
　　tell application “Finder”
　　　　
　　　　–新規フォルダ作成
　　　　set newFolder to (make new folder at appProcTmp with properties {name:aCount as string})
　　　　set newFolder to newFolder as alias
　　　　
　　　　–ipaファイルをコピー
　　　　set anAppFile to (duplicate j to newFolder)
　　　　set anAppFile to anAppFile as alias
　　　　
　　　　–ipaファイルをzipにリネーム
　　　　set aName to name of anAppFile
　　　　set bName to retNameFromFilenameStr(aName) of me
　　　　set bName to bName & “.zip”
　　　　
　　　　set name of anAppFile to bName –rename
　　　　
　　end tell
　　
　　–unzipを実行してzipアーカイブを展開
　　set tmpFolPath to POSIX path of newFolder
　　set tmpPathPOSIXfull to POSIX path of anAppFile
　　try
　　　　do shell script “cd “ & quoted form of tmpFolPath & ” && unzip “ & quoted form of tmpPathPOSIXfull
　　on error erMes
　　　　return {false, erMes}
　　end try
　　–展開ここまで
　　
　　
　　–展開後のアプリケーションバンドルをただのフォルダに変える
　　tell application “Finder”
　　　　tell folder (newFolder as string)
　　　　　　tell folder “Payload”
　　　　　　　　set appFileList to (every file whose name ends with “.app”)
　　　　　　　　set appFile to (contents of first item of appFileList) as alias
　　　　　　　　
　　　　　　　　set tmpName to name of appFile
　　　　　　　　set newAppName to retNameFromFilenameStr(tmpName) of me
　　　　　　　　set name of appFile to newAppName
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　
　　set aCount to aCount + 1
　　
end repeat

–ファイル名文字列から拡張子を外して返す
on retNameFromFilenameStr(fileNameStr)
　　set fLen to length of fileNameStr
　　set revText to (reverse of (characters of fileNameStr)) as string –逆順テキストを作成
　　set anOffset to offset of “.” in revText
　　set fRes to text 1 thru (fLen - anOffset) of fileNameStr
　　return fRes
end retNameFromFilenameStr

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

showHideToolbarAndSidebar(targWin, false) of me –非表示にする
–showHideToolbarAndSidebar(targWin, true) of me –表示にする

–指定Finder Windowのツールバー＆サイドバーの表示、非表示をコントロール
on showHideToolbarAndSidebar(targetWindow, showF)
　　try
　　　　tell application “Finder”
　　　　　　tell targetWindow
　　　　　　　　set toolbar visible to showF
　　　　　　end tell
　　　　end tell
　　end try
end showHideToolbarAndSidebar

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–録音日時が日付をまたがないことが処理条件
–もうちょっと機能アップしないと不十分？

set falseList to {} –処理できなかったファイルの一覧が入る

set tFol to choose folder with prompt “処理対象フォルダを指定してください”

tell application “Finder”
　　–指定フォルダ内のファイル一覧を取得（指定フォルダ以下のすべてのフォルダ内を走査）
　　try
　　　　set (fList of speedUp) to entire contents of tFol as alias list
　　on error
　　　　display dialog “Error” buttons {“OK”} default button 1 with icon 2
　　　　return
　　end try
end tell

–メインループ

repeat with i in (fList of speedUp)
　　–set j to contents of i
　　set aInfo to info for i
　　
　　–ファイル拡張子で処理対象を判別
　　tell application “Finder”
　　　　set aExt to name extension of aInfo
　　　　–log aExt
　　　　if aExt is in (extList of speedUp) then
　　　　　　
　　　　　　–作成日時と作成曜日を取り出す
　　　　　　set sDate to creation date of aInfo
　　　　　　–log sDate
　　　　　　
　　　　　　set yNum to year of sDate
　　　　　　set dayNum to weekday of sDate as number
　　　　　　set monthNum to month of sDate as number
　　　　　　set dateNum to day of sDate
　　　　　　
　　　　　　–番組リストとの照合
　　　　　　set hitF to false
　　　　　　repeat with ii in progList of speedUp
　　　　　　　　set {pName, sWeekday, sTime, eTime} to ii
　　　　　　　　
　　　　　　　　if (sWeekday as number) = dayNum then
　　　　　　　　　　–開始時刻のdate objectを求める
　　　　　　　　　　set s1Time to sDate
　　　　　　　　　　set {h1Num, m1Num} to words of sTime
　　　　　　　　　　set h1Num to h1Num as number
　　　　　　　　　　set m1Num to m1Num as number
　　　　　　　　　　set hours of s1Time to h1Num
　　　　　　　　　　set minutes of s1Time to m1Num
　　　　　　　　　　set s1Time to s1Time - (10 * 60) –開始時刻を10分前倒しで判定
　　　　　　　　　　
　　　　　　　　　　–終了時刻のdate objectを求める
　　　　　　　　　　set e1Time to sDate
　　　　　　　　　　set {h2Num, m2Num} to words of eTime
　　　　　　　　　　set h2Num to h2Num as number
　　　　　　　　　　set m2Num to m2Num as number
　　　　　　　　　　set hours of e1Time to h2Num
　　　　　　　　　　set minutes of e1Time to m2Num
　　　　　　　　　　set e1Time to e1Time + (10 * 60) –終了時刻を10分後ろ倒しで判定
　　　　　　　　　　
　　　　　　　　　　
　　　　　　　　　　if s1Time ≤ sDate and sDate ≤ e1Time then
　　　　　　　　　　　　–ファイル名指定用の数値データを桁数指定しつつ文字列化
　　　　　　　　　　　　set yStr to retZeroPaddingText(yNum, 4) of me
　　　　　　　　　　　　set mStr to retZeroPaddingText(monthNum, 2) of me
　　　　　　　　　　　　set dStr to retZeroPaddingText(dateNum, 2) of me
　　　　　　　　　　　　set targStr to pName & ” “ & yStr & ” “ & mStr & “月” & dStr & “日.” & aExt –ここを変更するとファイル名のフォーマットが変わる
　　　　　　　　　　　　
　　　　　　　　　　　　set name of i to targStr –ファイルの名称変更
　　　　　　　　　　　　
　　　　　　　　　　　　set hitF to true
　　　　　　　　　　　　
　　　　　　　　　　　　exit repeat
　　　　　　　　　　　　
　　　　　　　　　　end if
　　　　　　　　end if
　　　　　　end repeat
　　　　　　
　　　　　　if hitF = false then
　　　　　　　　set the end of falseList to (contents of i)
　　　　　　end if
　　　　　　
　　　　else
　　　　　　set the end of falseList to (contents of i)
　　　　end if
　　end tell
end repeat

return falseList

–数値にゼロパディングしたテキストを返す
on retZeroPaddingText(aNum, aLen)
　　set tText to (“0000000000″ & aNum as text)
　　set tCount to length of tText
　　set resText to text (tCount - aLen + 1) thru tCount of tText
　　return resText
end retZeroPaddingText

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aList to {“日曜日”, “月曜日”, “火曜日”, “水曜日”, “木曜日”, “金曜日”, “土曜日”}
set aMes to “ラベルを付ける対象曜日を選択してください。”
set targDay to retNumberFromChooseFromList(aList, aMes) of me

tell application “Finder”
　　tell folder aFol
　　　　set aList to every file as alias list
　　end tell
end tell

repeat with i in aList
　　set aInfo to info for i
　　set sDate to creation date of aInfo
　　set dayNum to weekday of sDate as number
　　
　　if dayNum = targDay then
　　　　tell application “Finder”
　　　　　　set label index of i to 2 –赤いラベル
　　　　end tell
　　end if
end repeat

–リストからの選択ダイアログで、選択したアイテムのアイテムナンバーを返す
on retNumberFromChooseFromList(aList, aMes)
　　set aRes to choose from list aList with prompt aMes
　　if aRes = false then return false
　　set aRes to (contents of aRes) as string
　　set itemCount to 1
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is equal to aRes then
　　　　　　return itemCount
　　　　end if
　　　　set itemCount to itemCount + 1
　　end repeat
end retNumberFromChooseFromList

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定バンドルIDのアプリケーション内のResourcesフォルダの中の現在のロケールのフォルダ内のLocalizable.strings内の指定タグに対応する値を取得
–iTunesのような「不適切なローカライズ」に対応するために、リソース内のローカライズデータからオブジェクト名を取得
on retLocalizedStringFromApp(locLabel, bundleID)
　　
　　set pRes to retExistenceOfProcessByBundleID(bundleID) of me
　　
　　if pRes is not equal to false then
　　　　–指定Bundle IDのプロセスが起動していた場合
　　　　tell application "System Events"
　　　　　　tell pRes
　　　　　　　　set appFile to application file
　　　　　　end tell
　　　　end tell
　　　　
　　else
　　　　–指定Bundle IDのプロセスが起動していなかった場合
　　　　tell application "Finder"
　　　　　　try
　　　　　　　　set appFile to application file id bundleID
　　　　　　on error
　　　　　　　　return
　　　　　　end try
　　　　end tell
　　　　
　　　　set appFile to appFile as alias
　　end if
　　
　　
　　set aStr to localized string locLabel in bundle appFile
　　
end retLocalizedStringFromApp

–指定のバンドルIDのプロセスが起動していればプロセスへの参照を返す、なければfalseを返す
on retExistenceOfProcessByBundleID(bundleID)
　　tell application "System Events"
　　　　set aProc to every process whose bundle identifier is equal to bundleID
　　　　if aProc = {} then return false
　　　　
　　　　set aProc to contents of first item of aProc
　　　　return aProc
　　end tell
end retExistenceOfProcessByBundleID

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application “iTunes”
　　tell source aRes
　　　　tell playlist aRes
　　　　　　count every track
　　　　end tell
　　end tell
end tell

–指定バンドルIDのアプリケーション内のResourcesフォルダの中の現在のロケールのフォルダ内のLocalizable.strings内の指定タグに対応する値を取得
–iTunesのような「不適切なローカライズ」に対応するために、リソース内のローカライズデータからオブジェクト名を取得
on retLocalizedStringFromApp(locLabel, bundleID)
　　
　　set pRes to retExistenceOfProcessByBundleID(bundleID) of me
　　
　　if pRes is not equal to false then
　　　　–指定Bundle IDのプロセスが起動していた場合
　　　　tell application “System Events”
　　　　　　tell pRes
　　　　　　　　set appFile to application file
　　　　　　end tell
　　　　end tell
　　　　
　　else
　　　　–指定Bundle IDのプロセスが起動していなかった場合
　　　　tell application “Finder”
　　　　　　try
　　　　　　　　set appFile to application file id bundleID
　　　　　　on error
　　　　　　　　return
　　　　　　end try
　　　　end tell
　　　　
　　　　set appFile to appFile as alias
　　end if
　　
　　
　　set aStr to localized string locLabel in bundle appFile
　　
end retLocalizedStringFromApp

–指定のバンドルIDのプロセスが起動していればプロセスへの参照を返す、なければfalseを返す
on retExistenceOfProcessByBundleID(bundleID)
　　tell application “System Events”
　　　　set aProc to every process whose bundle identifier is equal to bundleID
　　　　if aProc = {} then return false
　　　　
　　　　set aProc to contents of first item of aProc
　　　　return aProc
　　end tell
end retExistenceOfProcessByBundleID

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

on retLocalizedStringFromApp(locLabel, appID)
　　
　　tell application "Finder"
　　　　try
　　　　　　set appFile to application file id appID
　　　　on error
　　　　　　return
　　　　end try
　　end tell
　　
　　set appFile to appFile as alias
　　
　　set aStr to localized string locLabel in bundle appFile
　　
end retLocalizedStringFromApp

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application “Finder”
　　set aName to name of aFile
end tell

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application "Finder"
　　
　　tell folder aaSel
　　　　set nList to name of every folder
　　end tell
　　
　　set aList to {}
　　repeat with i in nList
　　　　set j to contents of i
　　　　
　　　　set aRes to retNumCharOnly(j) of me
　　　　try
　　　　　　set aRes to aRes as number
　　　　on error
　　　　　　display dialog "選択されたフォルダ中には、連番の「アルファベット」＋「数字」形式のフォルダはないようです。" buttons {"OK"} default button 1 with icon 1 with title "選択中フォルダ内のフォルダ名エラー"
　　　　　　return
　　　　end try
　　　　
　　　　set the end of aList to {aRes, j}
　　　　
　　end repeat
　　
end tell

–フォルダ名を昇順ソート
set bList to shellSortListAscending(aList, 1) of me
set bLastItem to last item of bList
set {numItem, folName} to bLastItem
set numItemStr to numItem as string

–新規フォルダ名称に用いるべき数字を計算（＋１）する
set numItemIncrement to numItem + 1
set numItemIncrementStr to numItemIncrement as string

–元のフォルダ名称から、数字部分を新規のものに差し替える
set newFolName to repChar(folName, numItemStr, numItemIncrementStr) of me

–得られたフォルダ名称で新規作成
tell application "Finder"
　　make new folder at folder aaSel with properties {name:newFolName}
end tell

–与えられた文字列から、数字部分だけを返す
on retNumCharOnly(a)
　　set aList to characters of a
　　
　　set aResList to {}
　　
　　set inF to false –アイテムへの取り込みフラグ：初期値＝false（取り込まない）
　　set oneItem to ""
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　set aF to detectOutNumChar(j) of me –aF：現在のキャラクタがNumericかどうかの判定フラグ
　　　　
　　　　if aF = true and inF = false then
　　　　　　set inF to true
　　　　　　set oneItem to oneItem & j
　　　　　　
　　　　else if aF = true and inF = true then
　　　　　　set oneItem to oneItem & j
　　　　　　
　　　　else if aF = false and inF = true then
　　　　　　set the end of aResList to oneItem
　　　　　　set oneItem to ""
　　　　　　set inF to false
　　　　　　
　　　　else if aF = false and inF = false then
　　　　　　–なにもしない
　　　　　　
　　　　end if
　　end repeat
　　
　　if oneItem is not equal to "" then
　　　　set the end of aResList to oneItem
　　end if
　　
　　return aResList
　　–> {"100", "12", "88"}
end retNumCharOnly

–数字範囲外の文字があるかどうかをテストする
–数字の文字以外のものが入っていたらfalse
on detectOutNumChar(testText)
　　–ANK文字列（大文字小文字は問わない）
　　set ankChar to {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "."}
　　
　　set _testChar to testText as Unicode text
　　
　　ignoring case
　　　　repeat with i in _testChar
　　　　　　set j to contents of i
　　　　　　if j is not in ankChar then
　　　　　　　　return false
　　　　　　end if
　　　　end repeat
　　end ignoring
　　
　　return true
end detectOutNumChar

–シェルソートで入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) > (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListAscending

–シェルソートで入れ子のリストを降順ソート
on shellSortListDecending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) < (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListDecending

–文字置換ルーチン
on repChar(origText, targStr, repStr)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

–Finderで選択中のフォルダを取得する
on getFinderSelection()
　　tell application "Finder"
　　　　try
　　　　　　set aSel to selection as alias
　　　　on error
　　　　　　set aSel to {}
　　　　end try
　　　　
　　　　if aSel is not equal to {} then
　　　　　　return aSel –selectionが存在していた場合
　　　　　　
　　　　else
　　　　　　–念のため、FinderのWindowが１枚も開いていない可能性について検証しておく
　　　　　　set wCount to count every window
　　　　　　if wCount = 0 then return false –なんにもWindowが存在していなかったらfalseを返す
　　　　　　
　　　　　　tell front window –「window 1」 と同じ
　　　　　　　　–カラム表示/アイコン表示/リスト表示/カバーフロー表示の場合で共通
　　　　　　　　set aSel to target as alias
　　　　　　end tell
　　　　end if
　　end tell
end getFinderSelection

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–Finderで選択中のフォルダを取得する
on getFinderSelection()
　　tell application "Finder"
　　　　try
　　　　　　set aSel to selection as alias
　　　　on error
　　　　　　set aSel to {}
　　　　end try
　　　　
　　　　if aSel is not equal to {} then
　　　　　　return aSel –selectionが存在していた場合
　　　　　　
　　　　else
　　　　　　–念のため、FinderのWindowが１枚も開いていない可能性について検証しておく
　　　　　　set wCount to count every window
　　　　　　if wCount = 0 then return false –なんにもWindowが存在していなかったらfalseを返す
　　　　　　
　　　　　　tell front window –「window 1」 と同じ
　　　　　　　　–カラム表示/アイコン表示/リスト表示/カバーフロー表示の場合で共通
　　　　　　　　set aSel to target as alias
　　　　　　end tell
　　　　end if
　　end tell
end getFinderSelection

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–ファイル作成日でソート（古いものから新しいものへ）
set aliasRes to sortAliasByCreationDate(aSel) of me

–> {alias "Cherry:Users:maro:Documents:AppleScript:MacJournalで選択中のjournal entryのBlog公開ステータスを取得する.scpt", alias "Cherry:Users:maro:Documents:AppleScript:目に見えるプロセス一覧を取得する.scpt", alias "Cherry:Users:maro:Documents:AppleScript:最前面のアプリケーションを取得する.scpt", alias "Cherry:Users:maro:Documents:AppleScript:InDesignの文字置換機能を用いた文字置換.scpt", alias "Cherry:Users:maro:Documents:AppleScript:aliasのリストをファイルの作成日でソートして返す.scpt"}

on sortAliasByCreationDate(aliasList)
　　
　　tell application "Finder"
　　　　set aList to {}
　　　　
　　　　repeat with i in aliasList
　　　　　　set j to contents of i
　　　　　　set the end of aList to {j, creation date of j}
　　　　end repeat
　　　　
　　　　set cList to shellSortListAscending(aList, 2) of me –で作成日時でソート
　　　　
　　　　
　　　　set aliasList to {}
　　　　set fnCount to 1
　　　　repeat with i in cList
　　　　　　set j to contents of (item 1 of i)
　　　　　　
　　　　　　set the end of aliasList to j
　　　　end repeat
　　end tell
　　
　　return aliasList
　　
end sortAliasByCreationDate

–シェルソートで入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) > (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListAscending

–シェルソートで入れ子のリストを降順ソート
on shellSortListDecending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) < (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListDecending

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application “Finder”
　　set aList to selection as alias list
　　move aList to folder newFol
end tell

beep

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aMBsize to getFolderSizeByMB(aaSel) of me

–指定フォルダのalias以下の容量をMBで返す
on getFolderSizeByMB(aFolAlias)
　　set aDir to (POSIX path of aFolAlias)
　　set aDir to quoted form of aDir
　　
　　try
　　　　–set aRes to do shell script “du -k -d 0 ” & aDir
　　　　set aRes to do shell script “du -m -d 0 “ & aDir
　　on error
　　　　return
　　end try
　　
　　set aList to words of aRes
　　set aSize to (first item of aList)
　　
　　return aSize
　　
end getFolderSizeByMB

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aMBsize to getFolderSizeByMB(aaSel) of me

–指定フォルダのalias以下の容量をMBで返す
on getFolderSizeByMB(aFolAlias)
　　set aDir to (POSIX path of aFolAlias)
　　set aDir to quoted form of aDir
　　
　　try
　　　　set aRes to do shell script “du -k -d 0 “ & aDir
　　on error
　　　　return
　　end try
　　
　　set aList to words of aRes
　　set aSize to (first item of aList) as number
　　
　　set mSize to aSize / 1024
　　return mSize
　　
end getFolderSizeByMB

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application "Finder"
　　set aSel to selection as alias list
　　if aSel = {} then
　　　　display dialog "Finder上で何も選択されていません。" buttons {"OK"} default button 1 with icon 1
　　　　return
　　end if
　　
　　set aaSel to first item of aSel
　　set fRes to detectFolder(aaSel) of me
　　
　　if fRes = false then
　　　　display dialog "Finder上でフォルダが選択されていません。" buttons {"OK"} default button 1 with icon 1
　　　　return
　　end if
end tell

tell application "Finder"
　　set fn to name of aaSel
end tell