use AppleScript version "2.8"
use framework "Foundation"
use scripting additions
property refMe : a reference to current application
property refNSString : a reference to refMe's NSString
property refNSURL : a reference to refMe's NSURL
set objFileManager to refMe's NSFileManager's defaultManager()
set strLocalizedName to "サンプル" as text
set strPermDemNo to "700" as text
set strCommentText to "" as text
set strIndexNo to "6" as text
set ocidDesktopDirPathURL to (objFileManager's URLsForDirectory:(refMe's NSDesktopDirectory) inDomains:(refMe's NSUserDomainMask))
set aliasDefaultLocation to (ocidDesktopDirPathURL) as alias
set strDefaultName to doGetDateNo("yyyyMMdd") as text
if strLocalizedName is not "" then
set strDefaultName to strDefaultName & ".localized" as text
end if
set strPromptText to "名前を決めてください" as text
set aliasPath to (choose file name default location aliasDefaultLocation default name strDefaultName with prompt strPromptText) as «class furl»
set strFilePathText to POSIX path of aliasPath as text
set ocidFilePath to (refNSString's stringWithString:strFilePathText)
set ocidFilePathString to ocidFilePath's stringByStandardizingPath
set ocidFilePathURL to (refNSURL's alloc()'s initFileURLWithPath:ocidFilePathString isDirectory:true)
if strCommentText is "" then
set strCommentText to ocidFilePathURL's lastPathComponent() as text
end if
doMakeNewFolderAtURL(ocidFilePathURL, strPermDemNo, strCommentText, strIndexNo, strLocalizedName)
on doMakeNewFolderAtURL(argFilePath, argOctNo, argComment, argIndexNo, argLocalizedName)
set objFileManager to refMe's NSFileManager's defaultManager()
try
set strClassName to class of argFilePath as text
if strClassName is "text" then
set strFilePath to argFilePath as text
else if strClassName is "alias" then
set strFilePath to POSIX path of argFilePath as text
end if
set ocidFilePath to (refNSString's stringWithString:strFilePath)
set ocidFilePathString to ocidFilePath's stringByStandardizingPath
set ocidFilePathURL to (refNSURL's alloc()'s initFileURLWithPath:ocidFilePathString isDirectory:true)
on error
set strClassName to argFilePath's className() as text
if strClassName contains "NSCFString" then
set ocidFilePathString to argFilePath's stringByStandardizingPath
set ocidFilePathURL to (refNSURL's alloc()'s initFileURLWithPath:ocidFilePathString isDirectory:true)
else if strClassName is "NSURL" then
set ocidFilePathURL to argFilePath
else
error "NSURLを指定してください" number -9999
return
end if
end try
set ocidFilePathString to ocidFilePathURL's |path|()
set ocidFolderName to (ocidFilePathString's lastPathComponent())
set strFolderName to ocidFolderName as text
set boolFolderExists to (objFileManager's fileExistsAtPath:ocidFilePathString isDirectory:true)
if boolFolderExists is false then
set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0
set strUID to user ID of (system info) as text
ocidAttrDict's setValue:strUID forKey:(refMe's NSFileOwnerAccountID)
ocidAttrDict's setValue:80 forKey:(refMe's NSFileGroupOwnerAccountID)
set strOctNo to argOctNo as text
set numPermissionNO to doOct2Dem(strOctNo) as number
ocidAttrDict's setValue:numPermissionNO forKey:(refMe's NSFilePosixPermissions)
set listBoolMakeDir to objFileManager's createDirectoryAtURL:(ocidFilePathURL) withIntermediateDirectories:false attributes:(ocidAttrDict) |error|:(reference)
set numIndexNo to argIndexNo as integer
ocidFilePathURL's setResourceValue:numIndexNo forKey:(refMe's NSURLLabelNumberKey) |error|:(reference)
set strComment to argComment as text
set aliasPath to ocidFilePathURL as alias
tell application "Finder" to set comment of item aliasPath to strComment
if strFolderName contains ".localized" then
set strLocalizedName to argLocalizedName as text
if strLocalizedName is not "" then
set ocidLocalizedDirPathURL to ocidFilePathURL's URLByAppendingPathComponent:".localized" isDirectory:false
set listBoolMakeDir to objFileManager's createDirectoryAtURL:(ocidLocalizedDirPathURL) withIntermediateDirectories:false attributes:(missing value) |error|:(reference)
set strFolderName to (ocidFolderName's stringByDeletingPathExtension()) as text
set strKey to strFolderName
set strValue to strLocalizedName
set ocidLocalizedJastringsURL to ocidLocalizedDirPathURL's URLByAppendingPathComponent:"ja.strings"
doMakeNewPlist(strKey, strValue, ocidLocalizedJastringsURL)
end if
else
set ocidBlankData to refMe's NSData's alloc()'s init()
set ocidAttrFile to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0
ocidAttrFile's setValue:493 forKey:(refMe's NSFilePosixPermissions)
set boolMakeNewFile to objFileManager's createFileAtPath:ocidLocalizedPath |contents|:ocidBlankData attributes:ocidAttrFile
end if
else
log
end if
end doMakeNewFolderAtURL
to doMakeNewPlist(argKey, argValue, argFilePath)
set strKey to argKey as text
set strValue to argValue as text
try
set strClassName to argFilePath's className() as text
if strClassName is "NSURL" then
set ocidFilePath to argFilePath's |path|()
else
set ocidFilePath to argFilePath
end if
on error
set ocidPosixPath to refNSString's stringWithString:argFilePath
set ocidFilePath to ocidPosixPath's stringByStandardizingPath
end try
set ocidPlistData to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0
set strValue to strValue as text
set strKey to strKey as text
ocidPlistData's setObject:strValue forKey:strKey
set ocidBinplist to refMe's NSPropertyListBinaryFormat_v1_0
set ocidPlistEditData to refMe's NSPropertyListSerialization's dataWithPropertyList:ocidPlistData format:ocidBinplist options:0 |error|:(missing value)
ocidPlistEditData's writeToFile:ocidFilePath atomically:true
end doMakeNewPlist
to doOct2Dem(argOctNo)
set strOctalText to argOctNo as text
set num3Line to first item of strOctalText as number
set num2Line to 2nd item of strOctalText as number
set num1Line to last item of strOctalText as number
set numDecimal to (num3Line * 64) + (num2Line * 8) + (num1Line * 1)
return numDecimal
end doOct2Dem
to doGetDateNo(strDateFormat)
set ocidDate to refMe's NSDate's |date|()
set ocidNSDateFormatter to refMe's NSDateFormatter's alloc()'s init()
ocidNSDateFormatter's setLocale:(refMe's NSLocale's localeWithLocaleIdentifier:"ja_JP_POSIX")
ocidNSDateFormatter's setDateFormat:strDateFormat
set ocidDateAndTime to ocidNSDateFormatter's stringFromDate:ocidDate
set strDateAndTime to ocidDateAndTime as text
return strDateAndTime
end doGetDateNo
to doGetErrorData(ocidNSErrorData)
log "エラーコード：" & ocidNSErrorData's code() as text
log "エラードメイン：" & ocidNSErrorData's domain() as text
log "Description:" & ocidNSErrorData's localizedDescription() as text
log "FailureReason:" & ocidNSErrorData's localizedFailureReason() as text
log ocidNSErrorData's localizedRecoverySuggestion() as text
log ocidNSErrorData's localizedRecoveryOptions() as text
log ocidNSErrorData's recoveryAttempter() as text
log ocidNSErrorData's helpAnchor() as text
set ocidNSErrorUserInfo to ocidNSErrorData's userInfo()
set ocidAllValues to ocidNSErrorUserInfo's allValues() as list
set ocidAllKeys to ocidNSErrorUserInfo's allKeys() as list
repeat with ocidKeys in ocidAllKeys
if (ocidKeys as text) is "NSUnderlyingError" then
log (ocidNSErrorUserInfo's valueForKey:ocidKeys)'s localizedDescription() as text
log (ocidNSErrorUserInfo's valueForKey:ocidKeys)'s localizedFailureReason() as text
log (ocidNSErrorUserInfo's valueForKey:ocidKeys)'s localizedRecoverySuggestion() as text
log (ocidNSErrorUserInfo's valueForKey:ocidKeys)'s localizedRecoveryOptions() as text
log (ocidNSErrorUserInfo's valueForKey:ocidKeys)'s recoveryAttempter() as text
log (ocidNSErrorUserInfo's valueForKey:ocidKeys)'s helpAnchor() as text
else
log (ocidKeys as text) & ": " & (ocidNSErrorUserInfo's valueForKey:ocidKeys) as text
end if
end repeat
end doGetErrorData
