–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

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

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

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

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

–> file “Cherry:Users:maro:Desktop:ScriptingBridgeFramework.pdf”

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

–> alias “Cherry:Users:maro:Desktop:ScriptingBridgeFramework.pdf”

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

–> alias “Cherry:Users:maro:Desktop:ScriptingBridgeFramework.pdf”

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

set my2Name to retChildFileName(myName, aList) of dupNameGenKit

script dupNameGenKit
　　–子番号を考慮しつつ、新しいファイル名を返す
　　on retChildFileName(myName, aList)
　　　　
　　　　set numList to {}
　　　　–set aList to {”RIMG0056.JPG”}
　　　　
　　　　repeat with i in aList
　　　　　　set j to contents of i
　　　　　　
　　　　　　set tmpN to offset of “_” in j
　　　　　　if tmpN is not equal to 0 then
　　　　　　　　set tmpA to text (tmpN + 1) thru -1 of j
　　　　　　　　set aOfst to offset of “.” in tmpA
　　　　　　　　set numStr to text (tmpN + 1) thru (tmpN + aOfst - 1) of j
　　　　　　　　
　　　　　　　　set the end of numList to (numStr as number)
　　　　　　end if
　　　　　　
　　　　end repeat
　　　　
　　　　if numList is not equal to {} then
　　　　　　–すでに「_」の子番号が存在する場合
　　　　　　set b to shellSortDecending(numList) of me
　　　　　　set largestNum to contents of first item of b
　　　　　　
　　　　　　set largestNum to largestNum + 1
　　　　　　
　　　　else
　　　　　　–まだ「_」の子番号が存在しない場合
　　　　　　set largestNum to 1
　　　　　　
　　　　end if
　　　　
　　　　set pureName to retNameFromFilenameStr(myName) of me
　　　　set anExt to retExtNameFromFilenameStr(myName) of me
　　　　set gName to pureName & “_” & (largestNum as string) & anExt
　　　　
　　　　return gName
　　　　
　　end retChildFileName
　　
　　
　　–ファイル名文字列から拡張子を外して返す
　　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
　　
　　–ファイル名文字列から拡張子のみ取得する
　　on retExtNameFromFilenameStr(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 (fLen - anOffset + 1) thru -1 of fileNameStr
　　　　return fRes
　　end retExtNameFromFilenameStr
　　
　　–シェルソートでリストを昇順ソート（入れ子ではないリスト）
　　on shellSortAscending(a)
　　　　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 (j - h + 1) of a) > 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 shellSortAscending
　　
　　–シェルソートでリストを降順ソート（入れ子ではないリスト）
　　on shellSortDecending(a)
　　　　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 (j - h + 1) of a) < 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 shellSortDecending
end script

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

–SIGMAのRawファイルを解析してメーカー名＋機種名を取り出す
on getCameraNameFromSIGMArawfile(aFile)
　　set aPOSIX to POSIX path of aFile
　　
　　ignoring case
　　　　if aPOSIX does not end with “.X3F” then
　　　　　　return false
　　　　end if
　　end ignoring
　　
　　
　　–Raw画像ファイルを文字ダンプして先頭から40行取り出す
　　set sText to “/usr/bin/strings “ & quoted form of aPOSIX & ” | head -n 40″
　　set aRes to do shell script sText
　　
　　set aList to paragraphs of aRes
　　set aLen to length of aList
　　
　　–Exifっぽい部分をサーチ
　　set aMaker to “”
　　set aMakerModel to “”
　　
　　repeat with i from 1 to aLen
　　　　set j to contents of item i of aList
　　　　if j contains “Exif” then
　　　　　　set aMaker to contents of item (i + 1) of aList
　　　　　　set aMakerModel to contents of item (i + 2) of aList
　　　　　　exit repeat
　　　　end if
　　end repeat
　　
　　–含んでいなかった場合（T＿T）
　　if aMaker = “” then
　　　　return false
　　end if
　　
　　–結果表示
　　return aMakerModel
　　
end getCameraNameFromSIGMArawfile

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

–ファイル作成日でソート（古いものから新しいものへ）
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

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

end
“

set asFile to choose file name
set asRes to makeASexecutable(asText, asFile) of me

if asRes is not equal to true then
　　display dialog asRes
　　return
end if

–指定のテキストをAppleScriptとしてコンパイルし、実行可能なアプレットとして出力する
on makeASexecutable(aText, outPathAlias)
　　
　　–出力先のaliasからファイル名のみ撮り出す
　　set aStr to outPathAlias as string
　　set fnRes to getLastLayerOfDirData(aStr) of me
　　
　　–指定のファル名に拡張子が適切に付いていない場合には補う
　　if fnRes does not end with “.app” then
　　　　set fnRes to fnRes & “.app”
　　end if
　　
　　–テンポラリフォルダ内のテキストファイルに書き出す
　　set aFileName to (do shell script “uuidgen”) & “.applescript”
　　set tmpAppName to (do shell script “uuidgen”) & “.app”
　　
　　set aTempFol to path to temporary items folder from system domain
　　set aTempFolPosix to (POSIX path of aTempFol) & aFileName
　　
　　set aTempPathText to (aTempFol as string) & aFileName
　　write_to_file(aText, aTempPathText, false) of me
　　
　　–ファイルキャッシュをHDDにシンクロさせる
　　–do shell script “sync”–> 実行しなくても大丈夫だった
　　
　　–osacompileコマンドでアプレットを生成
　　set sText to “cd “ & (quoted form of POSIX path of aTempFol) & ” && osacompile -s -x -o “ & fnRes & ” “ & aFileName
　　try
　　　　–コンパイル時にアプリケーションの起動を待ったりする可能性があるので、待ち時間を1時間に設定
　　　　with timeout of 3600 seconds
　　　　　　do shell script sText
　　　　end timeout
　　on error erMes
　　　　return erMes
　　end try
　　
　　
　　–テンポラリに書き込んだTextのAppleScriptを消す
　　try
　　　　do shell script “rm -f “ & quoted form of aTempFolPosix
　　end try
　　
　　
　　–生成したアプレットを指定のフォルダに移動する
　　set origAppPath to POSIX path of ((aTempFol as string) & fnRes)
　　set destPath to POSIX path of getOnlyFolder(aStr) of me & fnRes
　　
　　try
　　　　do shell script “mv -f “ & quoted form of origAppPath & ” “ & quoted form of destPath
　　on error erMes
　　　　return erMes
　　end try
　　
　　return true
　　
end makeASexecutable

–テキストで与えられたパスデータから、フォルダのみを返す
on getOnlyFolder(a)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {“:”}
　　set aList to text items of a
　　set bList to items 1 thru -2 of aList
　　set aText to bList as string
　　set AppleScript’s text item delimiters to curDelim
　　set aText to aText & “:”
　　return aText
end getOnlyFolder

–テキストで与えられたパスデータから、最終階層のテキストのみを返す
on getLastLayerOfDirData(aData)
　　set aColon to “:” as Unicode text
　　copy aData to bData
　　if bData ends with “:” then
　　　　set bData to text 1 thru -2 of bData
　　end if
　　
　　set aLen to length of bData
　　set rData to reverse of (characters of bData)
　　set rData to rData as string
　　set dPos to offset of aColon in rData
　　set resData to text (aLen - dPos + 2) thru -1 of bData
　　return resData
　　
end getLastLayerOfDirData

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_file(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_file

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

tell application "Finder"
　　tell folder aFol
　　　　set aList to name of every folder
　　end tell
　　tell folder bFol
　　　　set bList to name of every folder
　　end tell
end tell

set aHasNotBList to {}
repeat with i in aList
　　set j to contents of i
　　if j is not in bList then
　　　　set the end of aHasNotBList to j
　　end if
end repeat

set bHasNotAList to {}
repeat with i in bList
　　set j to contents of i
　　if j is not in aList then
　　　　set the end of bHasNotAList to j
　　end if
end repeat

if aHasNotBList is not equal to {} then
　　display dialog "フォルダAにあってBに存在しないもの：" & return & list2RETURNseparatedText(aHasNotBList) of me
end if

tell application "Finder"
　　repeat with i in aHasNotBList
　　　　set origFol to folder i of folder aFol
　　　　try
　　　　　　duplicate origFol to folder (bFol as alias)
　　　　end try
　　end repeat
end tell

(*
if bHasNotAList is not equal to {} then
　　display dialog "フォルダBにあってAに存在しないもの：" & return & list2RETURNseparatedText(bHasNotAList) of me
end if
*)

–リストをタブ区切りのテキストに変換
on list2RETURNseparatedText(aList)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to return
　　set bList to aList as string
　　set AppleScript’s text item delimiters to curDelim
　　return bList
end list2RETURNseparatedText

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

tell application "Finder"
　　try
　　　　set origI to (original item of aFile) as alias
　　on error
　　　　–エイリアス書類のオリジナルファイルが削除されてた場合にはエラーになる
　　　　set origI to false
　　end try
end tell

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

set bList to getFileListWithSpotLight("kMDItemContentType", "com.apple.xcode.project", bFol) of me –Xcodeのファイルをクリエータコードで検索
repeat with i in bList
　　set aFolStr to aFol as string
　　makeAliasFileInAFolder(i, aFolStr) of me
end repeat

–指定フォルダ内に指定名称のエイリアス書類を作成する
on makeAliasFileInAFolder(anAlias, outFol)
　　tell application "Finder"
　　　　set aName to name of anAlias
　　　　tell folder outFol
　　　　　　if file aName exists then
　　　　　　　　set c to makeUniqueName(outFol, aName) of me
　　　　　　end if
　　　　end tell
　　　　
　　　　set newalias to make new alias at folder outFol to anAlias
　　　　set name of newalias to aName
　　end tell
end makeAliasFileInAFolder

–指定フォルダ下に存在できる、指定名称＋数字の名前の（かぶらない）ファイル名を作成
on makeUniqueName(aFolder, origName)
　　set pureFileName to retFileNameWithoutExt(origName) of me
　　set anExt to retExtNameFromFilenameStr(origName) of me
　　
　　tell application "Finder"
　　　　tell folder aFolder
　　　　　　repeat with i from 1 to 256
　　　　　　　　if not (exists of file (pureFileName & " " & (i as string) & "." & anExt)) then
　　　　　　　　　　return (pureFileName & " " & (i as string) & "." & anExt)
　　　　　　　　end if
　　　　　　end repeat
　　　　end tell
　　end tell
end makeUniqueName

–ファイル名から拡張子を外す
on retFileNameWithoutExt(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 retFileNameWithoutExt

–ファイル名文字列から拡張子のみ取得する
on retExtNameFromFilenameStr(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 (fLen - anOffset + 1) thru -1 of fileNameStr
　　return fRes
end retExtNameFromFilenameStr

–指定階層下で、指定クリエータコードのファイルを取得（Mac OS X 10.4.x以上で動作）
on getFileListWithSpotLight(aMetaDataItem, aParam, startDir)
　　set sDirText to quoted form of POSIX path of startDir
　　set shellText to "mdfind ‘" & aMetaDataItem & " == \"" & aParam & "\"’ -onlyin " & sDirText
　　try
　　　　set aRes to do shell script shellText
　　on error
　　　　return {}
　　end try
　　set pList to paragraphs of aRes
　　set aList to {}
　　repeat with i in pList
　　　　set aPath to POSIX file i
　　　　set aPath to aPath as alias
　　　　set the end of aList to aPath
　　end repeat
　　return aList
end getFileListWithSpotLight

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

–外付けHDDをSpotlightの処理対象外に指定していたので、mdfindコマンドを使わなかった
tell application “Finder”
　　set fList to entire contents of aFol as alias list
end tell

–メインループ
repeat with i in f_r
　　set j to contents of i
　　try
　　　　set aInfo to info for j
　　　　set aF to folder of aInfo
　　on error
　　　　set aF to false
　　end try
　　
　　if aF = false then
　　　　changeModDateToCreationDate(j) of me
　　end if
end repeat

–作成日付の情報を修正情報にコピーする
on changeModDateToCreationDate(aFile)
　　tell application “Finder”
　　　　set aInfo to info for aFile
　　　　set creDate to creation date of aInfo
　　end tell
　　set aDateStr to makeMMDDYYYYhhmmssStr(creDate) of me
　　
　　set aP to POSIX path of aFile
　　
　　try
　　　　do shell script “/usr/bin/SetFile -m “ & quoted form of aDateStr & ” “ & quoted form of aP –修正日
　　end try
end changeModDateToCreationDate

–DateオブジェクトからMM/DD/YYYY hh:mm:ssの形式の文字列を返す
on makeMMDDYYYYhhmmssStr(aDate)
　　–Dateオブジェクトから各要素を取り出す
　　set yStr to (year of aDate) as string
　　set mStr to (month of aDate as number) as string
　　set dStr to (day of aDate) as string
　　set hhStr to (hours of aDate) as string
　　set mmStr to (minutes of aDate) as string
　　set ssStr to (seconds of aDate) as string
　　
　　–桁数を合わせる
　　set y2Str to retZeroPaddingText(yStr, 4) of me
　　set m2Str to retZeroPaddingText(mStr, 2) of me
　　set d2Str to retZeroPaddingText(dStr, 2) of me
　　set hh2Str to retZeroPaddingText(hhStr, 2) of me
　　set mm2Str to retZeroPaddingText(mmStr, 2) of me
　　set ss2Str to retZeroPaddingText(ssStr, 2) of me
　　
　　return (m2Str & “/” & d2Str & “/” & y2Str & ” “ & hh2Str & “:” & mm2Str & “:” & ss2Str)
end makeMMDDYYYYhhmmssStr