set aList to {"com.apple.iCal", "com.apple.AddressBook", "com.apple.databaseevents", "com.apple.finder", "com.apple.imageevents", "com.apple.mail", "com.apple.MobileSMS", "com.apple.Music", "com.apple.Notes", "com.apple.Photos", "com.apple.QuickTimePlayerX", "com.apple.reminders", "com.apple.Safari", "com.apple.ScriptEditor2", "com.apple.speech.SpeechRecognitionServer", "com.apple.systemevents", "com.apple.Terminal", "com.apple.TextEdit", "com.apple.TV", "com.apple.systempreferences"}

set targFol to POSIX path of (choose folder with prompt "SDEF収集先フォルダを選択")

–Get OS Version and Build Number
set sDic to current application’s NSDictionary’s dictionaryWithContentsOfFile:"/System/Library/CoreServices/SystemVersion.plist"
set osV to (sDic’s objectForKey:"ProductVersion") as string
set bNo to (sDic’s objectForKey:"ProductBuildVersion") as string

–Loop by Bundle IDs
repeat with i in aList
　　set j to contents of i
　　set aRes to retPathFromBundleID(j) of me
　　set appAlias to (POSIX file aRes) as alias
　　
　　set vRes to gepAppVersionByID(j) of me
　　
　　tell application "Script Editor"
　　　　open appAlias –Open App –> SDEF will be displayed
　　　　
　　　　tell front document
　　　　　　set docPath to path of it
　　　　end tell
　　end tell
　　
　　do shell script "sync" –Important!!!!
　　
　　set aP1 to (current application’s NSString’s stringWithString:(docPath as string))
　　set theName to aP1’s lastPathComponent()
　　set aP2 to (current application’s NSString’s stringWithString:targFol)
　　set newPath to (aP2’s stringByAppendingPathComponent:theName)
　　set aExt to (newPath’s pathExtension()) as string
　　set newPath to (newPath’s stringByDeletingPathExtension() as string) & "_v" & vRes & "@" & osV & "(" & bNo & ")." & aExt
　　
　　–Copy SDEF file
　　set aRes to (my copyFileAt:aP1 toFilePath:newPath)
　　
　　–Close SDEF
　　tell application "Script Editor"
　　　　tell front document
　　　　　　close without saving
　　　　end tell
　　end tell
　　
end repeat

–バンドルIDからApp Fileのパスを求める
on retPathFromBundleID(aBundleID)
　　set aURL to current application’s NSWorkspace’s sharedWorkspace()’s URLForApplicationWithBundleIdentifier:aBundleID
　　if aURL = missing value then return false –Error
　　return aURL’s |path|() as string
end retPathFromBundleID

–ファイルのコピー
on copyFileAt:origPOSIXPath toFilePath:newPOSIXPath
　　set POSIXPath1 to current application’s NSString’s stringWithString:origPOSIXPath
　　set POSIXPath2 to current application’s NSString’s stringWithString:newPOSIXPath
　　set fileManager to current application’s NSFileManager’s defaultManager()
　　set theResult to fileManager’s copyItemAtPath:POSIXPath1 toPath:POSIXPath2 |error|:(missing value)
　　return (theResult as integer = 1)
end copyFileAt:toFilePath: